The colors are back (was: XEmacs' desktop icon greyed out)
23 years, 9 months
Markus Alt
Markus Alt
Folks,
I must apologize for the confusion I caused with
http://list-archive.xemacs.org/xemacs-beta/199909/msg00354.html and
http://list-archive.xemacs.org/xemacs-beta/200002/msg00020.html. While
installing the "AIX Toolbox for Linux" and KDE2 on my RS/6000 lately, I
found out that this darn thing was running with 8 bit color depth by
default all the time! (I almost couldn't believe it.) If I had read the
output of "xdpyinfo" more carefully at the time when I posted the
aforementioned messages, I would also have seen that it said "depth of
root window: 8 planes" ...
After forcing X to use 24 bit with the "-d 24" option, XEmacs' desktop
icon looks fine again! Maybe I was confused because 21.1 never showed
that problem; the icon was ok even with 8 bit color depth. But as Jan
Vroonhof mentioned back in Feb. 2000, this change apparently has
happened between 21.2.11 and 21.2.12
(http://list-archive.xemacs.org/xemacs-patches/199902/msg00036.html).
So, sorry again; I thought I had to set this right, although it's
something I'm very proud of ... :-/
Markus
- 1 participants
- 0 comments
crash while scrolling
23 years, 9 months
Ben Wing
Ben Wing
anyone seen this before?
error_check_window(long 108) line 264 + 17 bytes
real_window_internal(long 108, window_mirror * 0x0000006e, window_mirror *
0x01f91d80) line 406 + 9 bytes
real_window(window_mirror * 0x01f91d80, int 1) line 489 + 30 bytes
mswindows_handle_scrollbar_event(HWND__ * 0x00370132, int 0, int 0) line 184 +
14 bytes
mswindows_wnd_proc(HWND__ * 0x00170112, unsigned int 277, unsigned int 0, long
3604786) line 2727 + 26 bytes
USER32! 77e148dc()
USER32! 77e14aa7()
USER32! 77e266fd()
mswindows_need_event(int 1) line 1500
emacs_mswindows_next_event(Lisp_Event * 0x020c4f10) line 3277 + 7 bytes
event_stream_next_event(Lisp_Event * 0x020c4f10) line 498 + 13 bytes
next_event_internal(long 34361104, int 0) line 1958 + 9 bytes
Fsit_for(long 3, long 28368900) line 2820 + 11 bytes
maybe_echo_keys(command_builder * 0x01e33a00, int 0) line 683 + 19 bytes
lookup_command_event(command_builder * 0x01e33a00, long 34594864, int 1) line
3725 + 11 bytes
Fdispatch_event(long 32505088) line 3988 + 15 bytes
Fcommand_loop_1() line 583 + 9 bytes
command_loop_1(long 28368900) line 495
condition_case_1(long 28368996, long (long)* 0x010505d6 command_loop_1(long),
long 28368900, long (long, long)* 0x0104fff0 cmd_error(long, long), long
28368900) line 1651 + 7 bytes
command_loop_3() line 256 + 35 bytes
command_loop_2(long 28368900) line 269
internal_catch(long 28448988, long (long)* 0x01050140 command_loop_2(long), long
28368900, int * volatile 0x00000000) line 1317 + 7 bytes
initial_command_loop(long 28368900) line 305 + 25 bytes
STACK_TRACE_EYE_CATCHER(int 1, char * * 0x01b46fd8, char * * 0x01b50300, int 0)
line 2257
main(int 1, char * * 0x01b46fd8, char * * 0x01b50300) line 2690
XEMACS! mainCRTStartup + 180 bytes
_start() line 169
KERNEL32! 77e992a6()
--
ben
I'm sometimes slow in getting around to reading my mail, so if you
want to reach me faster, call 520-661-6661.
See http://www.666.com/ben/chronic-pain/ for the hell I've been
through.
- 1 participants
- 0 comments
key mapping in Xmodmap
23 years, 9 months
Michael Kifer
Michael Kifer
The following has been an annoyance for a while, but now I decided to speak
up :-)
I have a habit of making the useless caps lock key to act as control key,
which I do in .Xmodmap. I also do things with Alt_R and such.
When XEmacs starts up, it gives me a mouthful. Why does it care?
Especially the last two warnings look silly in view of the fact that it is
precisely my intention that capslock would generate modcontrol (and that
the way to do this is in the X windows FAQ).
--michael
(1) (key-mapping/warning)
The meanings of the modifier bits Mod1 through Mod5 are determined
by the keysyms used to control those bits. Mod1 does NOT always
mean Meta, although some non-ICCCM-compliant programs assume that.
(2) (key-mapping/warning)
The semantics of the modifier bits ModShift, ModLock, and ModControl
are predefined. It does not make sense to assign ModControl to any
keysym other than Control_L or Control_R, or to assign any modifier
bits to the "control" keysyms other than ModControl. You can't
turn a "control" key into a "meta" key (or vice versa) by simply
assigning the key a different modifier bit. You must also make that
key generate an appropriate keysym (Control_L, Meta_L, etc).
(3) (key-mapping/warning) XEmacs: Caps_Lock (0x6d) generates ModControl,
which is nonsensical.
(4) (key-mapping/warning) XEmacs: Caps_Lock (0x42) generates ModControl,
which is nonsensical.
- 8 participants
- 13 comments
crash when playing with LDAP
23 years, 9 months
Björn Torkelsson
Björn Torkelsson
When playing with LDAP I got a crash. It is repeatable.
In the *scratch*-buffer eval:
(load-library "ldap")
(ldap-search-entries "torkel")
/torkel
In XEmacs 21.2 (beta45) "Thelxepeia" [Lucid] (i686-pc-linux) of Fri Feb 23 2001 on pip
configured using `configure --prefix=/lap/xemacs/21.2 --with-dialogs=athena --with-widgets=athena --with-athena=3d --pdump'
xemacs: error.c:221: ldap_parse_result: Assertion `r != ((void *)0)' failed.
[...]
Lisp backtrace follows:
ldap-search-basic(#<ldap "ldap.umu.se" 0x86c0110> "torkel" nil nil nil nil nil t)
apply(ldap-search-basic #<ldap "ldap.umu.se" 0x86c0110> ("torkel" nil nil nil nil nil t))
# bind (args arg1)
ldap-search(#<ldap "ldap.umu.se" 0x86c0110> "torkel" nil nil nil nil nil t)
# bind (host-plist ldap result withdn attrsonly attributes host filter)
ldap-search-entries("torkel")
# bind (current-load-list)
# (unwind-protect ...)
# bind (standard-output)
eval-buffer("*scratch*")
# bind (command-debug-status)
call-interactively(eval-buffer)
# (condition-case ... . error)
# (catch top-level ...)
Aborted (core dumped)
#0 0x4037d841 in kill () from /lib/i686/libc.so.6
#1 0x80b6c23 in fatal_error_signal (sig=6) at emacs.c:535
#2 0x4037d768 in sigaction () from /lib/i686/libc.so.6
#3 0x80d45e1 in Fldap_search_basic (ldap=141295888, filter=140642964,
base=140789116, scope=1079490796, attrs=1079490796, attrsonly=1079490796,
withdn=1079490796, verbose=1079489692) at eldap.c:72
#4 0x80c0069 in Ffuncall (nargs=9, args=0xbfffec44) at eval.c:3528
#5 0x80c0c60 in Fapply (nargs=3, args=0xbfffed5c) at eval.c:3804
#6 0x80c00df in Ffuncall (nargs=4, args=0xbfffed58) at eval.c:3549
#7 0x8093b7e in execute_optimized_program (
program=0x86c0138 "ÂÃ\t!«\004Ī\002Å\t\b#\207F＠a", stack_depth=4,
constants_data=0x86c5f58) at bytecode.c:746
#8 0x8093793 in funcall_compiled_function (fun=140808996, nargs=7,
args=0xbfffeeac) at bytecode.c:518
#9 0x80c01a7 in Ffuncall (nargs=9, args=0xbfffeea8) at eval.c:3563
#10 0x8093b7e in execute_optimized_program (
program=0x86bec00 "\r¬\n\b\211\025¬\005ÆÇ!\210È\r\016\025\"AÉ\211\034\e\032\t«\006ÊË\r\"\210Ì\r\n\"\023\t«\006ÊÍ\r\"\210Î\013\016\026Ï\nÐ\"Ï\nÑ\"\016\027\016\030\016\031\t&\b\024Ò\013!\210\016\032«\004\fª\005ÓÔ\f\"+\207",
stack_depth=9, constants_data=0x86c5f88) at bytecode.c:746
#11 0x8093793 in funcall_compiled_function (fun=140809024, nargs=1,
args=0xbfffef74) at bytecode.c:518
#12 0x80bf8ce in Feval (form=140433884) at eval.c:3388
#13 0x817472c in readevalloop (readcharfun=137866704, sourcename=1079490796,
evalfun=0x80bec94 <Feval>, printflag=0) at lread.c:1449
#14 0x817497f in Feval_buffer (buffer=137858596, printflag=1079490796)
at lread.c:1500
#15 0x80c000a in Ffuncall (nargs=2, args=0xbffff1c4) at eval.c:3528
#16 0x8098c1f in Fcall_interactively (function=1079410252,
record_flag=1079490796, keys=1079490796) at callint.c:940
#17 0x80be7bc in Fcommand_execute (cmd=1079410252, record_flag=1079490796,
keys=1079490796) at eval.c:2970
#18 0x81023d5 in execute_command_event (command_builder=0x83c3c18,
event=141213512) at event-stream.c:3834
#19 0x810303c in Fdispatch_event (event=141213512) at event-stream.c:4165
#20 0x809ef42 in Fcommand_loop_1 () at cmdloop.c:583
#21 0x809f1e2 in command_loop_1 (dummy=1079490796) at cmdloop.c:494
#22 0x80c6283 in condition_case_1 (handlers=1079490436,
bfun=0x809f1a4 <command_loop_1>, barg=1079490796,
hfun=0x809f254 <cmd_error>, harg=1079490796) at eval.c:1651
#23 0x809f347 in command_loop_2 (dummy=1079490796) at cmdloop.c:256
#24 0x80c614c in internal_catch (tag=1079316652,
func=0x809f30c <command_loop_2>, arg=1079490796, threw=0x0) at eval.c:1317
#25 0x809e7b6 in initial_command_loop (load_me=1079490796) at cmdloop.c:305
#26 0x80b7dbd in xemacs_21_2_b45_i686_pc_linux () at emacs.c:2253
#27 0x80b9ce7 in main (argc=1, argv=0xbffff7ec, envp=0xbffff7f4)
at emacs.c:2620
#28 0x4036bc14 in __libc_start_main () from /lib/i686/libc.so.6
uname -a: Linux pip 2.4.1 #12 tis feb 20 23:06:02 CET 2001 i686 unknown
./configure '--prefix=/lap/xemacs/21.2' '--with-dialogs=athena' '--with-widgets=athena' '--with-athena=3d' '--pdump'
XEmacs 21.2-b45 "Thelxepeia" configured for `i686-pc-linux'.
Compilation / Installation:
Source code location: /lap/xemacs/21.2/src/CVS
Installation prefix: /lap/xemacs/21.2
Operating system description file: `s/linux.h'
Machine description file: `m/intel386.h'
Compiler: gcc -g -O3 -Wall -Wno-switch -Winline -Wmissing-prototypes -Wshadow
Relocating allocator for buffers: no
GNU version of malloc: yes
- Using Doug Lea's new malloc from the GNU C Library.
Window System:
Compiling in support for the X window system:
- X Windows headers location: /usr/X11R6/include
- X Windows libraries location: /usr/X11R6/lib
- Handling WM_COMMAND properly.
Compiling in support for the Athena widget set:
- Athena headers location: X11/Xaw3d
- Athena library to link: Xaw3d
Using Lucid menubars.
Using Lucid scrollbars.
Using Athena dialog boxes.
Using Athena native widgets.
TTY:
Compiling in support for ncurses.
Compiling in support for GPM (General Purpose Mouse).
Images:
Compiling in support for GIF images (builtin).
Compiling in support for XPM images.
Compiling in support for PNG images.
Compiling in support for JPEG images.
Compiling in support for TIFF images.
Compiling in support for X-Face message headers.
Sound:
Compiling in support for sound (native).
Compiling in support for ESD (Enlightened Sound Daemon).
Databases:
Compiling in support for Berkeley database.
Compiling in support for LDAP.
Compiling in support for PostgreSQL.
- Using PostgreSQL header file: postgresql/libpq-fe.h
- Using PostgreSQL V7 bindings.
Internationalization:
Mail:
Compiling in support for "dot-locking" mail spool file locking method.
Other Features:
Compiling in support for dynamic shared object modules.
Using the new portable dumper.
Compiling in support for extra debugging code.
WARNING: ---------------------------------------------------------
WARNING: Compiling in support for runtime error checking.
WARNING: XEmacs will run noticeably more slowly as a result.
WARNING: Error checking is on by default for XEmacs beta releases.
WARNING: ---------------------------------------------------------
- 1 participants
- 0 comments
Problem adding a package after a make bindist
23 years, 9 months
Norbert Koch
Norbert Koch
Hi!
I've just made bindist on the elib package. The package-index entry
for this package reads
(package-get-update-base-entry (quote
(elib
(standards-version 1.1
version "1.08"
author-version "1.0"
date "2000-10-05"
build-date "2001-02-22"
maintainer "XEmacs Development Team <xemacs-beta(a)xemacs.org>"
distribution xemacs
priority high
category "libs"
dump nil
description "Portable Emacs Lisp utilities library."
filename "elib-1.08-pkg.tar.gz"
md5sum "1c4499b33222da09e10d46d057eb29d1"
size 73070
provides (avltree bintree cookie dll elib-node queue-f queue-m read stack-f stack-m string)
requires ()
type single
))
))
When I try to add the package, I get the error
'Package elib-1.08-pkg.tar.gz does not match md5 checksum'
The md5 entry looks correct. At least, I get the same value on the
command line. Anything I can do to get the package installed?
Thanks,
norbert.
- 3 participants
- 6 comments
CORE leaving an article from within gnuclient
23 years, 9 months
Norbert Koch
Norbert Koch
Hi!
Current CVS version of xemacs. I exited xemacs on the fast lane by
leaving an article in Gnus. I was working within an xterm running
gnuclient -nw.
C-trace as follows:
#0 0x185653d0 in kill () from /usr/lib/libc.so.3
#1 0x80c7323 in fatal_error_signal (sig=6) at emacs.c:535
#2 0xbfbfdfdc in ?? ()
#3 0x80ca73a in assert_failed (file=0x82bc27f "alloc.c", line=2259,
expr=0x82bcb60 "! MARKED_RECORD_HEADER_P (lheader)") at emacs.c:3214
#4 0x808f8e3 in allocate_managed_lcrecord (lcrecord_list={gu = {
type = Lisp_Type_Record, val = 34790624}, s = {bits = 0, val = 69581248},
u = {bits = 0, val = 69581248}, ui = 139162496, i = 139162496, v = 0x84b7380,
cv = 0x84b7380}) at alloc.c:2259
#5 0x81a7cbf in Lstream_new (imp=0x835dea0, mode=0x830b80a "r") at lstream.c:245
#6 0x81a9915 in make_fixed_buffer_input_stream (buf=0xbfbfa228, size=63)
at lstream.c:1267
#7 0x8099a66 in dfc_convert_to_external_format (source_type=DFC_TYPE_DATA,
source=0xbfbfa220, coding_system={gu = {type = Lisp_Type_Record,
val = 102507595}, s = {bits = 0, val = 205015190}, u = {bits = 0,
val = 205015190}, ui = 410030380, i = 410030380, v = 0x1870912c,
cv = 0x1870912c}, sink_type=DFC_TYPE_DATA, sink=0xbfbfa218) at buffer.c:1890
#8 0x81b2a04 in std_handle_out_va (stream=0x8368ab8,
fmt=0x82d08a0 "Fatal error: assertion failed, file %s, line %d, %s\n",
args=0xbfbfc254 "'\035-\b]\a") at print.c:186
#9 0x81b2b02 in stderr_out (
fmt=0x82d08a0 "Fatal error: assertion failed, file %s, line %d, %s\n")
at print.c:208
#10 0x80ca732 in assert_failed (file=0x82d1d27 "eval.c", line=1885,
expr=0x82d1888 "abort()") at emacs.c:3208
#11 0x80cd1c5 in signal_1 (sig={gu = {type = Lisp_Type_Record, val = 102242558}, s = {
bits = 0, val = 204485116}, u = {bits = 0, val = 204485116}, ui = 408970232,
i = 408970232, v = 0x186063f8, cv = 0x186063f8}, data={gu = {
type = Lisp_Type_Record, val = 38449800}, s = {bits = 0, val = 76899600},
u = {bits = 0, val = 76899600}, ui = 153799200, i = 153799200, v = 0x92aca20,
cv = 0x92aca20}) at eval.c:1885
#12 0x80d529a in signal_simple_error (
reason=0x830b660 "Internal error: lstream not open", frob={gu = {
type = Lisp_Type_Record, val = 42533088}, s = {bits = 0, val = 85066176},
u = {bits = 0, val = 85066176}, ui = 170132352, i = 170132352, v = 0xa240380,
cv = 0xa240380}) at eval.c:2052
#13 0x81a7ded in Lstream_flush_out (lstr=0xa240380) at lstream.c:295
#14 0x81a93e7 in Lstream_flush (lstr=0xa240380) at lstream.c:378
#15 0x81136e0 in encoding_flusher (stream=0x8b89500) at file-coding.c:2747
#16 0x81a7f62 in Lstream_flush_out (lstr=0x8b89500) at lstream.c:370
#17 0x81a8451 in Lstream_close (lstr=0x8b89500) at lstream.c:378
#18 0x81a9d39 in finalize_lstream (header=0x8b89500, for_disksave=0) at lstream.c:178
#19 0x808fbf3 in sweep_lcrecords_1 (prev=0x8369710, used=0xbfbfc4d4) at alloc.c:2539
#20 0x8090a16 in gc_sweep () at alloc.c:3120
#21 0x809112b in garbage_collect_1 () at alloc.c:3449
#22 0x80cfe7c in Feval (form={gu = {type = Lisp_Type_Record, val = 38488961}, s = {
bits = 0, val = 76977922}, u = {bits = 0, val = 76977922}, ui = 153955844,
i = 153955844, v = 0x92d2e04, cv = 0x92d2e04}) at eval.c:3256
#23 0x81a46bc in readevalloop (readcharfun={gu = {type = Lisp_Type_Record,
val = 53793280}, s = {bits = 0, val = 107586560}, u = {bits = 0,
val = 107586560}, ui = 215173120, i = 215173120, v = 0xcd34800,
cv = 0xcd34800}, sourcename={gu = {type = Lisp_Type_Record, val = 35091065},
s = {bits = 0, val = 70182130}, u = {bits = 0, val = 70182130}, ui = 140364260,
i = 140364260, v = 0x85dc9e4, cv = 0x85dc9e4}, evalfun=0x80cfb10 <Feval>,
printflag=0) at lread.c:1449
#24 0x81a3041 in Fload_internal (file={gu = {type = Lisp_Type_Record,
val = 35091065}, s = {bits = 0, val = 70182130}, u = {bits = 0,
val = 70182130}, ui = 140364260, i = 140364260, v = 0x85dc9e4,
cv = 0x85dc9e4}, noerror={gu = {type = Lisp_Type_Record, val = 102242654}, s = {
bits = 0, val = 204485308}, u = {bits = 0, val = 204485308}, ui = 408970616,
i = 408970616, v = 0x18606578, cv = 0x18606578}, nomessage={gu = {
type = Lisp_Type_Record, val = 102242186}, s = {bits = 0, val = 204484372},
u = {bits = 0, val = 204484372}, ui = 408968744, i = 408968744, v = 0x18605e28,
cv = 0x18605e28}, nosuffix={gu = {type = Lisp_Type_Record, val = 102242654},
s = {bits = 0, val = 204485308}, u = {bits = 0, val = 204485308},
ui = 408970616, i = 408970616, v = 0x18606578, cv = 0x18606578}, codesys={gu = {
type = Lisp_Type_Record, val = 102237764}, s = {bits = 0, val = 204475528},
u = {bits = 0, val = 204475528}, ui = 408951056, i = 408951056, v = 0x18601910,
cv = 0x18601910}, used_codesys={gu = {type = Lisp_Type_Record,
val = 102242654}, s = {bits = 0, val = 204485308}, u = {bits = 0,
val = 204485308}, ui = 408970616, i = 408970616, v = 0x18606578,
cv = 0x18606578}) at lread.c:737
#25 0x80d0e09 in Ffuncall (nargs=6, args=0xbfbfc8e4) at eval.c:3528
#26 0x809ebfe in execute_optimized_program (
program=0x1871b2a8 "Æ\b!\035Ç\rÈ\"\eÉ\034\013«\013\013È\r\n\016\035\t%ª`\rGÊX¬\017Ë\r\016 \t?\002Ì#\211\024¬\r\n?HÍÎÏ\rD\"ª＠Ð\b\n\016\035\t\fÑÉO\227Ò\230\211\036\036¬\005\016\037®(\212ÓÔ!q\210Õ \210Ö\036\037×\fÉØÙ$\210)Ú )®\017\016\036«\004Ûª\bÜ\f!®\003\016!)%+\207.el\026\001", stack_depth=11, constants_data=0x1868b258) at bytecode.c:746
#27 0x809e813 in funcall_compiled_function (fun={gu = {type = Lisp_Type_Record,
val = 102489402}, s = {bits = 0, val = 204978804}, u = {bits = 0,
val = 204978804}, ui = 409957608, i = 409957608, v = 0x186f74e8,
cv = 0x186f74e8}, nargs=3, args=0xbfbfca58) at bytecode.c:518
#28 0x80d0ea5 in Ffuncall (nargs=4, args=0xbfbfca54) at eval.c:3563
#29 0x809ebfe in execute_optimized_program (
program=0xbfbfcae0 "\n\031Ã\bÄÅ#\210)Ä\207", stack_depth=4,
constants_data=0x88b1210) at bytecode.c:746
#30 0x80a226c in Fbyte_code (instructions={gu = {type = Lisp_Type_Record,
val = 35892137}, s = {bits = 0, val = 71784274}, u = {bits = 0,
val = 71784274}, ui = 143568548, i = 143568548, v = 0x88eaea4,
cv = 0x88eaea4}, constants={gu = {type = Lisp_Type_Record, val = 35832960},
s = {bits = 0, val = 71665920}, u = {bits = 0, val = 71665920}, ui = 143331840,
i = 143331840, v = 0x88b1200, cv = 0x88b1200}, stack_depth={gu = {
type = Lisp_Type_Int_Even, val = 2}, s = {bits = 1, val = 4}, u = {bits = 1,
val = 4}, ui = 9, i = 9, v = 0x9, cv = 0x9}) at bytecode.c:2405
#31 0x80d041d in Feval (form={gu = {type = Lisp_Type_Record, val = 35823330}, s = {
bits = 0, val = 71646660}, u = {bits = 0, val = 71646660}, ui = 143293320,
i = 143293320, v = 0x88a7b88, cv = 0x88a7b88}) at eval.c:3331
#32 0x80ccefb in condition_case_3 (bodyform={gu = {type = Lisp_Type_Record,
val = 35823330}, s = {bits = 0, val = 71646660}, u = {bits = 0,
val = 71646660}, ui = 143293320, i = 143293320, v = 0x88a7b88,
cv = 0x88a7b88}, var={gu = {type = Lisp_Type_Record, val = 102228290}, s = {
bits = 0, val = 204456580}, u = {bits = 0, val = 204456580}, ui = 408913160,
i = 408913160, v = 0x185f8508, cv = 0x185f8508}, handlers={gu = {
type = Lisp_Type_Record, val = 35823465}, s = {bits = 0, val = 71646930},
u = {bits = 0, val = 71646930}, ui = 143293860, i = 143293860, v = 0x88a7da4,
cv = 0x88a7da4}) at eval.c:1651
#33 0x809f7bd in execute_rare_opcode (stack_ptr=0xbfbfcd5c,
program_ptr=0x88db74b "\210ªÖ*\207op gnus-mouse-face] 7])\n(byte-code \"\201À\tB\021\201Â\201À!\201¬\026±\215\b\200e\212\bü8", opcode=Bcondition_case) at bytecode.c:1271
#34 0x809e9ee in execute_optimized_program (
program=0x88db710 "\n=\013«\005Æ\211\023\207\t\023\b\016\016DÆ\035\034\f)\f\211A\024＠\211\025«õÇ\r!«\006È\r!«\017Ç\rÉP!¬\bÇ\rÊP!«ÝËÌÍ\217\210ªÖ*\207op gnus-mouse-face] 7])\n(byte-code \"\201À\tB\021\201Â\201À!\201¬\026±\215\b\200e\212\bü8",
stack_depth=3, constants_data=0x8891610) at bytecode.c:656
#35 0x809e813 in funcall_compiled_function (fun={gu = {type = Lisp_Type_Record,
val = 35814457}, s = {bits = 0, val = 71628914}, u = {bits = 0,
val = 71628914}, ui = 143257828, i = 143257828, v = 0x889f0e4,
cv = 0x889f0e4}, nargs=0, args=0xbfbfcea8) at bytecode.c:518
#36 0x80d0ea5 in Ffuncall (nargs=1, args=0xbfbfcea4) at eval.c:3563
#37 0x809ebfe in execute_optimized_program (
program=0x88dba10 "Æ «\025Ç\t!\210È\r§\n\rÉV\005\b＠\r]!\207Ê \210Ë \210ÌÍ!\210Î \210\016\031\026\032Ï \210\f«\034Ð\024ÑÒ!«\006Ó \210ª\020\016\e«\fÔ Õ TU«\004Ö \210\r§\a\rÉV\002\rÐ\e\032×\216\016\034?\nØ\r\003\n?!\211\023+\207\\\"!\217©\030\f\026¹\215\b f\212\bä8", stack_depth=3, constants_data=0x8886910) at bytecode.c:746
#38 0x809e813 in funcall_compiled_function (fun={gu = {type = Lisp_Type_Record,
val = 35814541}, s = {bits = 0, val = 71629082}, u = {bits = 0,
val = 71629082}, ui = 143258164, i = 143258164, v = 0x889f234,
cv = 0x889f234}, nargs=3, args=0xbfbfcff8) at bytecode.c:518
#39 0x80d0ea5 in Ffuncall (nargs=4, args=0xbfbfcff4) at eval.c:3563
#40 0x809ebfe in execute_optimized_program (program=0x846f090 "Ã\n\t\b#\207",
stack_depth=4, constants_data=0x88a6950) at bytecode.c:746
#41 0x809e813 in funcall_compiled_function (fun={gu = {type = Lisp_Type_Record,
val = 35831205}, s = {bits = 0, val = 71662410}, u = {bits = 0,
val = 71662410}, ui = 143324820, i = 143324820, v = 0x88af694,
cv = 0x88af694}, nargs=1, args=0xbfbfd164) at bytecode.c:518
#42 0x80d0ea5 in Ffuncall (nargs=2, args=0xbfbfd160) at eval.c:3563
#43 0x80a4a39 in Fcall_interactively (function={gu = {type = Lisp_Type_Record,
val = 102221684}, s = {bits = 0, val = 204443368}, u = {bits = 0,
val = 204443368}, ui = 408886736, i = 408886736, v = 0x185f1dd0,
cv = 0x185f1dd0}, record_flag={gu = {type = Lisp_Type_Record, val = 102242654},
s = {bits = 0, val = 204485308}, u = {bits = 0, val = 204485308},
ui = 408970616, i = 408970616, v = 0x18606578, cv = 0x18606578}, keys={gu = {
type = Lisp_Type_Record, val = 102242654}, s = {bits = 0, val = 204485308},
u = {bits = 0, val = 204485308}, ui = 408970616, i = 408970616, v = 0x18606578,
cv = 0x18606578}) at callint.c:940
#44 0x80cf61d in Fcommand_execute (cmd={gu = {type = Lisp_Type_Record,
val = 102221684}, s = {bits = 0, val = 204443368}, u = {bits = 0,
val = 204443368}, ui = 408886736, i = 408886736, v = 0x185f1dd0,
cv = 0x185f1dd0}, record_flag={gu = {type = Lisp_Type_Record, val = 102242654},
s = {bits = 0, val = 204485308}, u = {bits = 0, val = 204485308},
ui = 408970616, i = 408970616, v = 0x18606578, cv = 0x18606578}, keys={gu = {
type = Lisp_Type_Record, val = 102242654}, s = {bits = 0, val = 204485308},
u = {bits = 0, val = 204485308}, ui = 408970616, i = 408970616, v = 0x18606578,
cv = 0x18606578}) at eval.c:2970
#45 0x812d9b9 in execute_command_event (command_builder=0x8f26ac0, event={gu = {
type = Lisp_Type_Record, val = 37162671}, s = {bits = 0, val = 74325342},
u = {bits = 0, val = 74325342}, ui = 148650684, i = 148650684, v = 0x8dc3abc,
cv = 0x8dc3abc}) at event-stream.c:3834
#46 0x812e5dd in Fdispatch_event (event={gu = {type = Lisp_Type_Record,
val = 36834025}, s = {bits = 0, val = 73668050}, u = {bits = 0,
val = 73668050}, ui = 147336100, i = 147336100, v = 0x8c82ba4,
cv = 0x8c82ba4}) at event-stream.c:4165
#47 0x80ae25d in Fcommand_loop_1 () at cmdloop.c:583
#48 0x80ae502 in command_loop_1 (dummy={gu = {type = Lisp_Type_Record,
val = 102242654}, s = {bits = 0, val = 204485308}, u = {bits = 0,
val = 204485308}, ui = 408970616, i = 408970616, v = 0x18606578,
cv = 0x18606578}) at cmdloop.c:494
#49 0x80d6a5a in condition_case_1 (handlers={gu = {type = Lisp_Type_Record,
val = 102242558}, s = {bits = 0, val = 204485116}, u = {bits = 0,
val = 204485116}, ui = 408970232, i = 408970232, v = 0x186063f8,
cv = 0x186063f8}, bfun=0x80ae4c4 <command_loop_1>, barg={gu = {
type = Lisp_Type_Record, val = 102242654}, s = {bits = 0, val = 204485308},
u = {bits = 0, val = 204485308}, ui = 408970616, i = 408970616, v = 0x18606578,
cv = 0x18606578}, hfun=0x80ae574 <cmd_error>, harg={gu = {
type = Lisp_Type_Record, val = 102242654}, s = {bits = 0, val = 204485308},
u = {bits = 0, val = 204485308}, ui = 408970616, i = 408970616, v = 0x18606578,
cv = 0x18606578}) at eval.c:1651
#50 0x80ae66f in command_loop_2 (dummy={gu = {type = Lisp_Type_Record,
val = 102242654}, s = {bits = 0, val = 204485308}, u = {bits = 0,
val = 204485308}, ui = 408970616, i = 408970616, v = 0x18606578,
cv = 0x18606578}) at cmdloop.c:256
#51 0x80d695c in internal_catch (tag={gu = {type = Lisp_Type_Record,
val = 102194036}, s = {bits = 0, val = 204388072}, u = {bits = 0,
val = 204388072}, ui = 408776144, i = 408776144, v = 0x185d6dd0,
cv = 0x185d6dd0}, func=0x80ae630 <command_loop_2>, arg={gu = {
type = Lisp_Type_Record, val = 102242654}, s = {bits = 0, val = 204485308},
u = {bits = 0, val = 204485308}, ui = 408970616, i = 408970616, v = 0x18606578,
cv = 0x18606578}, threw=0x0) at eval.c:1317
#52 0x80adac7 in initial_command_loop (load_me={gu = {type = Lisp_Type_Record,
val = 102242654}, s = {bits = 0, val = 204485308}, u = {bits = 0,
val = 204485308}, ui = 408970616, i = 408970616, v = 0x18606578,
cv = 0x18606578}) at cmdloop.c:305
#53 0x80c8881 in xemacs_21_2_b44_i386_unknown_freebsd3_3 (argc=4, argv=0xbfbfd674,
envp=0xbfbfd688, restart=0) at emacs.c:2253
#54 0x80ca95e in main (argc=4, argv=0xbfbfd674, envp=0xbfbfd688) at emacs.c:2620
(norber . t)
- 3 participants
- 3 comments
To All Package Maintainers & Would-be Maintainers.
23 years, 9 months
Steve Youngs
Steve Youngs
<rant>
Before you commit any updates to your packages, can you please make
sure that it builds in the xemacs-packages tree. If it doesn't,
simple, don't commit. I guess that means that you need a copy of the
xemacs-packages CVS module on your local machine, huh?
Please make sure that all the build targets work as expected. If your
not sure of anything go have a read of the packages info file (I've
recently updated it). Still can't figure it out? Ask on xemacs-beta
or ask me.
Don't ever say to yourself "...well, I think it's right, I'll just
commit it and see what happens...". If you're not sure, re-read the
previous paragraph.
If the latest version of your package needs some other wiz-bang
package that we don't currently have, this is what you should do in
this order:
Email me, explaining the situation, where I can find the
needed package.
Wait until I've added the new package to the tree. (I'll email
you letting you know)
Do a cvs update, check to make sure your package builds.
Commit your update.
<end rant>
Thank you.
We know return you to your normal programme.
--
|---<Steve Youngs>---------------<GnuPG KeyID: 9E7E2820>---|
| XEmacs - It's not just an editor. |
| It's a way of life. |
|------------------------------------<youngs(a)xemacs.org>---|
- 5 participants
- 8 comments
Request for testers: rmail
23 years, 9 months
Simon Josefsson
Simon Josefsson
Are there any RMAIL users out there?
The following patch synch's XEmacs mail-lib's rmailout.el with the one
in Emacs. I carefully synched this (XEmacs rmail package use
different variable names so it's not a complete synch), but I make
mistakes.
2001-01-13 Simon Josefsson <sj(a)extundo.com>
* rmailout.el (rmail-output-file-alist): Synch with Emacs:
Defcustom `rmail-output-file-alist'. Add
`rmail-output-read-rmail-file-name'. Use it in
`rmail-output-to-rmail-file' and `rmail-output'. Use
`find-buffer-visiting' instead of `get-file-buffer. Fix bug:
disable deleted attribute outside of save-restriction. New
variable `rmail-fields-not-to-output'. Turn on auto save in rmail
buffer. Update summary buffer. New: extra optional argument
`stay' in `rmail-output-to-rmail-file'. Alias `rmail-file-p' to
`mail-file-babyl-p' (for backwards compatibility), use
`mail-file-babyl-p' instead. Enhancement: exclude headers when
outputting a message to a file (`rmail-fields-not-to-output').
Preserve MIME-Version as well as from. Fix bug: set
case-fold-search to nil when searching for "^from" to
escape. Add `rmail-output-body-to-file'.
Index: rmailout.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/xemacs-packages/libs/mail-lib/rmailout.el,v
retrieving revision 1.2
diff -u -u -w -r1.2 rmailout.el
--- rmailout.el 1998/01/18 23:39:02 1.2
+++ rmailout.el 2001/02/23 22:24:15
＠＠ -1,8 +1,7 ＠＠
;;; rmailout.el --- "RMAIL" mail reader for Emacs: output message to a file.
-;; Copyright (C) 1985, 1987, 1993 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1987, 1993, 1994 Free Software Foundation, Inc.
-;; Maintainer: FSF
;; Keywords: mail
;; This file is part of XEmacs.
＠＠ -28,27 +27,23 ＠＠
(defvar rmail-delete-after-output nil
"*Non-nil means automatically delete a message that is copied to a file.")
-(defvar rmail-output-file-alist nil
+;;;###autoload
+(defcustom rmail-output-file-alist nil
"*Alist matching regexps to suggested output Rmail files.
This is a list of elements of the form (REGEXP . NAME-EXP).
The suggestion is taken if REGEXP matches anywhere in the message buffer.
NAME-EXP may be a string constant giving the file name to use,
or more generally it may be any kind of expression that returns
-a file name as a string.")
-
-;;; There are functions elsewhere in Emacs that use this function; check
-;;; them out before you change the calling method.
-(defun rmail-output-to-rmail-file (file-name &optional count)
- "Append the current message to an Rmail file named FILE-NAME.
-If the file does not exist, ask if it should be created.
-If file is being visited, the message is appended to the Emacs
-buffer visiting that file.
-If the file exists and is not an Rmail file,
-the message is appended in inbox format.
-
-A prefix argument N says to output N consecutive messages
-starting with the current one. Deleted messages are skipped and don't count."
- (interactive
+a file name as a string."
+ :type '(repeat (cons regexp
+ (choice :value ""
+ (string :tag "File Name")
+ sexp)))
+ :group 'rmail-output)
+
+(defun rmail-output-read-rmail-file-name ()
+ "Read the file name to use for `rmail-output-to-rmail-file'.
+Set `rmail-last-rmail-file' to this name as well as returning it."
(let ((default-file
(let (answer tail)
(setq tail rmail-output-file-alist)
＠＠ -59,27 +54,88 ＠＠
(if (re-search-forward (car (car tail)) nil t)
(setq answer (eval (cdr (car tail)))))
(setq tail (cdr tail))))
- ;; If not suggestions, use same file as last time.
- (or answer rmail-last-rmail-file))))
- (list (setq rmail-last-rmail-file
- (if default-file
+ ;; If no suggestions, use same file as last time.
+ (expand-file-name (or answer rmail-last-rmail-file)))))
+ (let ((read-file
+ (expand-file-name
(read-file-name
(concat "Output message to Rmail file: (default "
(file-name-nondirectory default-file)
") ")
(file-name-directory default-file)
- default-file)
- (read-file-name "Output message to Rmail file: ")))
- (prefix-numeric-value current-prefix-arg))))
+ (abbreviate-file-name default-file))
+ (file-name-directory default-file))))
+ ;; If the user enters just a directory,
+ ;; use the name within that directory chosen by the default.
+ (setq rmail-last-rmail-file
+ (if (file-directory-p read-file)
+ (expand-file-name (file-name-nondirectory default-file)
+ read-file)
+ read-file)))))
+
+(defun rmail-output-read-file-name ()
+ "Read the file name to use for `rmail-output'.
+Set `rmail-last-file' to this name as well as returning it."
+ (let ((default-file
+ (let (answer tail)
+ (setq tail rmail-output-file-alist)
+ ;; Suggest a file based on a pattern match.
+ (while (and tail (not answer))
+ (save-excursion
+ (goto-char (point-min))
+ (if (re-search-forward (car (car tail)) nil t)
+ (setq answer (eval (cdr (car tail)))))
+ (setq tail (cdr tail))))
+ ;; If no suggestion, use same file as last time.
+ (or answer rmail-last-file))))
+ (let ((read-file
+ (expand-file-name
+ (read-file-name
+ (concat "Output message to Unix mail file: (default "
+ (file-name-nondirectory default-file)
+ ") ")
+ (file-name-directory default-file)
+ (abbreviate-file-name default-file))
+ (file-name-directory default-file))))
+ (setq rmail-last-file
+ (if (file-directory-p read-file)
+ (expand-file-name (file-name-nondirectory default-file)
+ read-file)
+ (expand-file-name
+ (or read-file (file-name-nondirectory default-file))
+ (file-name-directory default-file)))))))
+
+;;; There are functions elsewhere in Emacs that use this function;
+;;; look at them before you change the calling method.
+;;;###autoload
+(defun rmail-output-to-rmail-file (file-name &optional count stay)
+ "Append the current message to an Rmail file named FILE-NAME.
+If the file does not exist, ask if it should be created.
+If file is being visited, the message is appended to the Emacs
+buffer visiting that file.
+If the file exists and is not an Rmail file, the message is
+appended in inbox format, the same way `rmail-output' does it.
+
+The default file name comes from `rmail-last-rmail-file',
+which is updated to the name you use in this command.
+
+A prefix argument N says to output N consecutive messages
+starting with the current one. Deleted messages are skipped and don't count.
+
+If optional argument STAY is non-nil, then leave the last filed
+mesasge up instead of moving forward to the next non-deleted message."
+ (interactive
+ (list (rmail-output-read-rmail-file-name)
+ (prefix-numeric-value current-prefix-arg)))
(or count (setq count 1))
(setq file-name
(expand-file-name file-name
(file-name-directory rmail-last-rmail-file)))
- (if (and (file-readable-p file-name) (not (rmail-file-p file-name)))
+ (if (and (file-readable-p file-name) (not (mail-file-babyl-p file-name)))
(rmail-output file-name count)
(rmail-maybe-set-message-counters)
(setq file-name (abbreviate-file-name file-name))
- (or (get-file-buffer file-name)
+ (or (find-buffer-visiting file-name)
(file-exists-p file-name)
(if (yes-or-no-p
(concat "\"" file-name "\" does not exist, create it? "))
＠＠ -95,19 +151,32 ＠＠
(let (redelete)
(unwind-protect
(progn
- (save-restriction
- (widen)
+ ;; Temporarily turn off Deleted attribute.
+ ;; Do this outside the save-restriction, since it would
+ ;; shift the place in the buffer where the visible text starts.
(if (rmail-message-deleted-p rmail-current-message)
(progn (setq redelete t)
(rmail-set-attribute "deleted" nil)))
+ (save-restriction
+ (widen)
;; Decide whether to append to a file or to an Emacs buffer.
(save-excursion
- (let ((buf (get-file-buffer file-name))
+ (let ((buf (find-buffer-visiting file-name))
(cur (current-buffer))
(beg (1+ (rmail-msgbeg rmail-current-message)))
(end (1+ (rmail-msgend rmail-current-message))))
(if (not buf)
- (append-to-file beg end file-name)
+ ;; Output to a file.
+ (if rmail-fields-not-to-output
+ ;; Delete some fields while we output.
+ (let ((obuf (current-buffer)))
+ (set-buffer (get-buffer-create " rmail-out-temp"))
+ (insert-buffer-substring obuf beg end)
+ (rmail-delete-unwanted-fields)
+ (append-to-file (point-min) (point-max) file-name)
+ (set-buffer obuf)
+ (kill-buffer (get-buffer " rmail-out-temp")))
+ (append-to-file beg end file-name))
(if (eq buf (current-buffer))
(error "Can't output message to same file it's already in"))
;; File has been visited, in buffer BUF.
＠＠ -118,6 +187,11 ＠＠
;; If MSG is non-nil, buffer is in RMAIL mode.
(if msg
(progn
+ ;; Turn on auto save mode, if it's off in this
+ ;; buffer but enabled by default.
+ (and (not buffer-auto-save-file-name)
+ auto-save-default
+ (auto-save-mode t))
(rmail-maybe-set-message-counters)
(widen)
(narrow-to-region (point-max) (point-max))
＠＠ -126,37 +200,65 ＠＠
(widen)
(search-backward "\n\^_")
(narrow-to-region (point) (point-max))
+ (rmail-delete-unwanted-fields)
(rmail-count-new-messages t)
+ (if (rmail-summary-exists)
+ (rmail-select-summary
+ (rmail-update-summary)))
(rmail-show-message msg))
;; Output file not in rmail mode => just insert at
;; the end.
(narrow-to-region (point-min) (1+ (buffer-size)))
(goto-char (point-max))
- (insert-buffer-substring cur beg end)))))))
+ (insert-buffer-substring cur beg end)
+ (rmail-delete-unwanted-fields)))))))
(rmail-set-attribute "filed" t))
(if redelete (rmail-set-attribute "deleted" t))))
(setq count (1- count))
(if rmail-delete-after-output
- (rmail-delete-forward)
+ (unless
+ (if (and (= count 0) stay)
+ (rmail-delete-message)
+ (rmail-delete-forward))
+ (setq count 0))
(if (> count 0)
- (rmail-next-undeleted-message 1))))))
+ (unless
+ (if (not stay) (rmail-next-undeleted-message 1))
+ (setq count 0)))))))
-;; Returns t if file FILE is an Rmail file.
;;;###autoload
-(defun rmail-file-p (file)
- (let ((buf (generate-new-buffer " *rmail-file-p*")))
- (unwind-protect
+(defalias 'mail-file-babyl-p 'rmail-file-p)
+
+;;;###autoload
+(defcustom rmail-fields-not-to-output nil
+ "*Regexp describing fields to exclude when outputting a message to a file."
+ :type '(choice (const :tag "None" nil)
+ regexp)
+ :group 'rmail-output)
+
+;; Delete from the buffer header fields we don't want output.
+;; NOT-RMAIL if t means this buffer does not have the full header
+;; and *** EOOH *** that a message in an Rmail file has.
+(defun rmail-delete-unwanted-fields (&optional not-rmail)
+ (if rmail-fields-not-to-output
(save-excursion
- (set-buffer buf)
- (insert-file-contents file nil 0 100)
- (looking-at "BABYL OPTIONS:"))
- (kill-buffer buf))))
+ (goto-char (point-min))
+ ;; Find the end of the header.
+ (if (and (or not-rmail (search-forward "\n*** EOOH ***\n" nil t))
+ (search-forward "\n\n" nil t))
+ (let ((end (point-marker)))
+ (goto-char (point-min))
+ (while (re-search-forward rmail-fields-not-to-output end t)
+ (beginning-of-line)
+ (delete-region (point)
+ (progn (forward-line 1) (point)))))))))
-;;; There are functions elsewhere in Emacs that use this function; check
-;;; them out before you change the calling method.
+;;; There are functions elsewhere in Emacs that use this function;
+;;; look at them before you change the calling method.
;;; ####Boy, FROM-GNUS, what wonderful abstraction. You loser.
+;;;###autoload
(defun rmail-output (file-name &optional count noattribute from-gnus)
- "Append this message to Unix mail file named FILE-NAME.
+ "Append this message to system-inbox-format mail file named FILE-NAME.
A prefix argument N says to output N consecutive messages
starting with the current one. Deleted messages are skipped and don't count.
When called from lisp code, N may be omitted.
＠＠ -165,28 +267,22 ＠＠
messages will be appended with pruned headers; otherwise, messages
will be appended with their original headers.
+The default file name comes from `rmail-last-file',
+which is updated to the name you use in this command.
+
The optional third argument NOATTRIBUTE, if non-nil, says not
to set the `filed' attribute, and not to display a message.
The optional fourth argument FROM-GNUS is set when called from GNUS."
(interactive
- (list (setq rmail-last-file
- (read-file-name
- (concat "Output message to Unix mail file"
- (if rmail-last-file
- (concat " (default "
- (file-name-nondirectory rmail-last-file)
- "): " )
- ": "))
- (and rmail-last-file (file-name-directory rmail-last-file))
- rmail-last-file))
+ (list (rmail-output-read-file-name)
(prefix-numeric-value current-prefix-arg)))
(or count (setq count 1))
(setq file-name
(expand-file-name file-name
(and rmail-last-file
(file-name-directory rmail-last-file))))
- (if (and (file-readable-p file-name) (rmail-file-p file-name))
+ (if (and (file-readable-p file-name) (mail-file-babyl-p file-name))
(rmail-output-to-rmail-file file-name count)
(let ((orig-count count)
(rmailbuf (current-buffer))
＠＠ -201,10 +297,11 ＠＠
(forward-line 1)
(= (following-char) ?0)))))
header-beginning
- mail-from)
+ mail-from mime-version)
(while (> count 0)
+ ;; Preserve the Mail-From and MIME-Version fields
+ ;; even if they have been pruned.
(or from-gnus
- (setq mail-from
(save-excursion
(save-restriction
(widen)
＠＠ -212,12 +309,16 ＠＠
(setq header-beginning (point))
(search-forward "\n*** EOOH ***\n")
(narrow-to-region header-beginning (point))
- (mail-fetch-field "Mail-From")))))
+ (setq mail-from
+ (mail-fetch-field "Mail-From")
+ mime-version
+ (mail-fetch-field "MIME-Version")))))
(save-excursion
(set-buffer tembuf)
(erase-buffer)
(insert-buffer-substring rmailbuf)
- (insert "\n")
+ (rmail-delete-unwanted-fields t)
+ (or (bolp) (insert "\n"))
(goto-char (point-min))
(if mail-from
(insert mail-from "\n")
＠＠ -227,12 +328,15 ＠＠
(mail-fetch-field "sender")
"unknown"))
" " (current-time-string) "\n"))
+ (if mime-version
+ (insert "MIME-Version: " mime-version "\n"))
;; ``Quote'' "\nFrom " as "\n>From "
;; (note that this isn't really quoting, as there is no requirement
;; that "\n[>]+From " be quoted in the same transparent way.)
+ (let ((case-fold-search nil))
(while (search-forward "\nFrom " nil t)
(forward-char -5)
- (insert ?>))
+ (insert ?>)))
(write-region (point-min) (point-max) file-name t
(if noattribute 'nomsg)))
(or noattribute
＠＠ -257,6 +361,37 ＠＠
(if (= num-appended 1) "" "s"))))
(setq count 0))))))
(kill-buffer tembuf))))
+
+
+;;;###autoload
+(defun rmail-output-body-to-file (file-name)
+ "Write this message body to the file FILE-NAME.
+FILE-NAME defaults, interactively, from the Subject field of the message."
+ (interactive
+ (let ((default-file
+ (or (mail-fetch-field "Subject")
+ rmail-default-body-file)))
+ (list (setq rmail-default-body-file
+ (read-file-name
+ "Output message body to file: "
+ (and default-file (file-name-directory default-file))
+ default-file
+ nil default-file)))))
+ (setq file-name
+ (expand-file-name file-name
+ (and rmail-default-body-file
+ (file-name-directory rmail-default-body-file))))
+ (save-excursion
+ (goto-char (point-min))
+ (search-forward "\n\n")
+ (and (file-exists-p file-name)
+ (not (y-or-n-p (message "File %s exists; overwrite? " file-name)))
+ (error "Operation aborted"))
+ (write-region (point) (point-max) file-name)
+ (if (equal major-mode 'rmail-mode)
+ (rmail-set-attribute "stored" t)))
+ (if rmail-delete-after-output
+ (rmail-delete-forward)))
(provide 'rmailout)
- 2 participants
- 1 comments
XEmacs 21.2.45 "Thelxepeia" is released.
23 years, 9 months
Martin Buchholz
Martin Buchholz
Brief summary of changes to 21.2.45 "Thelxepeia"
-- lib-src Makefile fixes -- Martin Buchholz
-- startup path fixes -- Michael Sperber
-- Port FSF 20.7 syntax table improvements -- Matt Tucker
-- --pdump now works with HP-UX native cc -- Martin Buchholz
-- copy-file now works correctly with non-ascii filenames -- Martin Buchholz
-- More pdump improvements -- Martin Buchholz
-- Prefer more standard utime() to utimes() -- Martin Buchholz
-------- ChangeLog entries from xemacs-21.2.45/lib-src/ChangeLog -------
2001-02-11 Martin Buchholz <martin(a)xemacs.org>
* Makefile.in.in: Cleanup.
Fixes bug: all must depend on make-dump-id.
Don't install make-path; only used at build time.
Avoid duplicating file lists for maintainability.
(PUBLIC_INSTALLABLE_SCRIPTS): More logical naming.
(PUBLIC_INSTALLABLE_EXES): Likewise.
(PUBLIC_INSTALLABLES): Likewise.
(PRIVATE_INSTALLABLE_SCRIPTS): More logical naming.
(PRIVATE_INSTALLABLE_EXES): Likewise.
(PRIVATE_INSTALLABLES): Likewise.
(SCRIPTS): Likewise.
(EXES): New.
(PROGS): New.
(SOURCES): Remove.
(BUILD_UTILITIES): New. Non-installed utilities.
(INSTALL_GNUSERV): New.
(unlock): Remove obsolete target.
(relock): Remove obsolete target.
(aixcc.c): Remove. Obsolete.
* aixcc.lex: Remove. Obsolete.
2001-02-12 Martin Buchholz <martin(a)xemacs.org>
* make-dump-id.c (main): No longer #include dump-id.h.
2001-02-08 Martin Buchholz <martin(a)xemacs.org>
* gnuserv.c (permitted): Compiler warning fixes.
-------- ChangeLog entries from xemacs-21.2.45/lisp/ChangeLog -------
2001-01-25 Jason R. Mastaler <jason(a)xemacs.org>
* about.el (xemacs-hackers): update my entry.
* about.el (about-maintainer-info): ditto.
* about.el (about-hackers): ditto.
2001-02-20 Jan Vroonhof <jan(a)xemacs.org>
* about.el (about-maintainer-info): More vanity info about
yours truly.
2001-02-20 Adrian Aichner <adrian(a)xemacs.org>
* build-report.el (build-report-destination): xemacs-build-reports
has moved to SourceForge, where mailing list name length is
restricted, hence the name change to
xemacs-buildreports(a)xemacs.org.
* build-report.el (build-report-keep-regexp): Update default.
* build-report.el (build-report-delete-regexp): Ditto.
* build-report.el (build-report-make-output-files): Ditto.
2001-02-19 Craig Lanning <lanning(a)scra.org>
* lisp-mode.el: Add indentation specifications for following
Common Lisp forms: handler-case, handler-bind, with-slots,
with-open-file, with-open-stream, print-unreadable-object.
2001-02-18 Matt Tucker <tuck(a)whistlingfish.net>
* font-lock.el (font-lock-set-defaults-1):
Move initialization of `font-lock-cache-position' so that it's set
even if font-lock-keywords is already defined.
2001-02-17 Matt Tucker <tuck(a)whistlingfish.net>
* autoload.el (generate-file-autoloads-1):
Use `emacs-lisp-mode-syntax-table' instead of
`lisp-mode-syntax-table'.
* lisp-mode.el (lisp-mode-syntax-table):
Get rid of old checks for `parse-partial-sexp' version.
Make `|' (pipe) string delimiter instead of punctuation.
2001-02-16 Martin Buchholz <martin(a)xemacs.org>
* window.el (save-selected-window):
Use gensym for better macro hygiene.
2001-02-06 Mike Sperber <mike(a)xemacs.org>
* dump-paths.el:
* startup.el (startup-setup-paths): Set and use
`mule-lisp-directory'.
(startup-setup-paths-warning): Ditto.
* setup-paths.el (paths-find-mule-lisp-directory): Added.
(paths-construct-load-path): Consider `mule-lisp-directory'.
2001-02-07 Matt Tucker <tuck(a)whistlingfish.net>
* font-lock.el: Syntax table improvements used. A few random
changes are not specified below.
(font-lock-fontify-string-delimiters):
(font-lock-syntactic-keywords):
(font-lock-cache-state nil):
(font-lock-cache-position):
New variables.
(font-lock-set-syntax):
(font-lock-apply-syntactic-highlight):
(font-lock-fontify-syntactic-anchored-keywords):
(font-lock-fontify-syntactic-keywords-region):
(font-lock-eval-keywords):
New functions.
(font-lock-remove-face):
(font-lock-fontify-syntactically-region):
Use syntax properties.
-------- ChangeLog entries from xemacs-21.2.45/lwlib/ChangeLog -------
2001-02-16 Raymond Toy <toy(a)rtp.ericsson.se>
* lwlib-Xaw.c: Always include ATHENA_AsciiText_h_ to get the
text-field widget.
(xaw_creation_table): Always include the text-field widget
-------- ChangeLog entries from xemacs-21.2.45/man/ChangeLog -------
2001-02-10 Martin Buchholz <martin(a)xemacs.org>
* xemacs/programs.texi (Tag Syntax): Port to makeinfo 3.
-------- ChangeLog entries from xemacs-21.2.45/nt/ChangeLog -------
2001-02-09 Martin Buchholz <martin(a)xemacs.org>
* config.h (HAVE_UTIME): New.
* config.h (HAVE_UTIME_H): Remove.
* config.h (HAVE_STRUCT_UTIMBUF): Remove.
-------- ChangeLog entries from xemacs-21.2.45/src/ChangeLog -------
2001-02-21 Martin Buchholz <martin(a)xemacs.org>
* lisp-union.h (XSETINT):
(XSETCHAR):
(XSETOBJ):
Reverse previous change of 2001-02-06.
2001-02-20 Matt Tucker <tuck(a)whistlingfish.net>
Fix `VALID_BYTIND_P' crashes in regex.c when using narrowed
buffers.
* syntax.h (SYNTAX_CACHE_BYTE_TO_CHAR):
* syntax.h (SYNTAX_CACHE_OBJECT_BYTE_TO_CHAR):
Add `BI_BUF_BEGV' to bytepos before calculating bufpos.
* regex.c (POS_AS_IN_BUFFER): removed
* regex.c (re_search_2):
* regex.c (re_match_2):
Don't use an offset of 1 when calculating buffer positions, since
`BI_BUF_BEGV' does it already.
2001-02-18 Wim Dumon <wim(a)easics.be>
* insdel.c (prepare_to_modify_buffer): Also check for
supersession when clash-detection is enabled.
2001-02-17 Matt Tucker <tuck(a)whistlingfish.net>
* regex.c (re_match_2_internal):
Convert temp characters from 'const unsigned char' to 're_char'.
Fix crashing bug with extended characters under mule.
* syntax.c (Qsyntax_table): Moved from vars_of_syntax to
syms_of_syntax. Use defsymbol to define. Fixes hanging bug with
font-lock, pdump, and new syntax-table code.
* syntax.c (find_start_of_comment):
(find_end_of_comment):
(forward-comment):
Fix crashing bugs involving moving beyond end of buffer.
* syntax.c (find_start_of_comment):
Fixed logic to allow proper detection of cases where the same
character is used to end both a two-char comment start and a
two-char comment end sequence. Fixes `(forward-comment -1)'.
* syntax.c (find_start_of_comment):
Return position just past last comment-end character for all cases
(previously was only done for two-char comment-end sequences).
* syntax.c (forward-comment):
Take value returned from `find_end_of_comment', rather than
incrementing it.
* syntax.h (SYNTAX_CACHE_BYTE_TO_CHAR):
Properly deal with BUFFERP (syntax_cache.object)
2001-02-17 Martin Buchholz <martin(a)xemacs.org>
* alloc.c (Fgarbage_collect):
* alloc.c (make_bit_vector_from_byte_vector):
-Wsign-compare-correctness.
2001-02-16 Martin Buchholz <martin(a)xemacs.org>
* lisp-union.h (XSETINT): Eliminate unnecessary temp var.
(XSETCHAR): Likewise.
(XSETOBJ): Likewise.
2001-02-15 Martin Buchholz <martin(a)xemacs.org>
* mule-canna.c (canna-func-delete_previous):
Rename to canna-func-delete-previous.
2001-02-14 Martin Buchholz <martin(a)xemacs.org>
* mule-ccl.c (ccl_driver): Warning suppression. Use countof.
2001-02-13 Matt Tucker <tuck(a)whistlingfish.net>
* font-lock.c (find_context): Fix C++ compile errors introduced by
recent patch
2001-02-13 Martin Buchholz <martin(a)xemacs.org>
* s/aix4.h: Later versions of IBM C compiler need a bug workaround
pragma, but earlier ones barf on the same pragma.
2001-02-06 Mike Sperber <mike(a)xemacs.org>
* emacs.c (complex_vars_of_emacs): Add `mule-lisp-directory' and
`configure-mule-lisp-directory'.
2001-02-12 Martin Buchholz <martin(a)xemacs.org>
Make sure dump-id.c is compiled in the same way as other .c's.
Fixes pdump compilation failure with HP's cc, which defaults to K&R.
* dump-id.h: Remove.
* emacs.c: Move dump-id.h into dumper.h.
* dumper.h: Move dump-id.h into dumper.h.
* Makefile.in.in:
Use standard .c.o rule for building dump-id.o.
Remove preprocessor flags from link command.
Add dump-id.o to ${otherobjs} if PDUMP.
2001-02-07 Matt Tucker <tuck(a)whistlingfish.net>
Port FSF 20.7 syntax table improvements.
* syntax.c.
* syntax.h.
Fixups for new syntax table stuff.
* dired.c: Include syntax.c.
(Fdirectory_files): Initialize regex_match_object and
regex_emacs_buffer.
* extents.h: EXFUN Fnext_extent_change, Fprevious_extent_change,
and Fget_char_property.
Use ported FSF 20.7 syntax table improvements.
* font-lock.c.
* regex.c.
* search.c.
2001-02-09 Martin Buchholz <martin(a)xemacs.org>
* regex.c (Boolean): Renamed to `re_bool', to avoid conflict with
Unixware's enum boolean from sys/types.h.
2001-02-10 Martin Buchholz <martin(a)xemacs.org>
Fix support for building with latest Purify.
* Makefile.in.in (PURIFY_LIBS): Remove thread flags.
(PURIFY_FLAGS): Likewise.
2001-02-09 Martin Buchholz <martin(a)xemacs.org>
* fileio.c (lisp_string_set_file_times): New.
* fileio.c (Fcopy_file): Use it.
Fixes bug:
(copy-file filename non-ascii-filename t t)
==> No such file or directory, non-ascii-filename
2001-02-10 Martin Buchholz <martin(a)xemacs.org>
* glyphs-x.c (generate_cursor_fg_bg): Avoid a warning.
USHRT_MAX seems clearer than ~0 anyways.
2001-02-09 Martin Buchholz <martin(a)xemacs.org>
dumper improvements. Inspired by Olivier.
* dumper.c (pdump_max_align): New.
* dumper.c (pdump_add_entry): Use pdump_max_align.
* dumper.c (pdump_get_entry_list): Likewise.
* dumper.c (pdump_scan_by_alignment): Likewise.
Don't iterate through unnecessary alignments.
* dumper.c (pdump_file_get): No need to align result of malloc().
* dumper.c (pdump_mallocadr): Remove.
The result of malloc() is guaranteed to be maximally aligned.
* dumper.c: s/elmt/elt/g;
* dumper.c (pdump_object_table): Allocate dynamically, not statically.
* dumper.c (pdump_alert_undump_object): Likewise.
* dumper.c (pdump_align_table):
Don't support alignments > 64.
Store ALIGNOF's, not shift counts, in table.
2001-02-09 Martin Buchholz <martin(a)xemacs.org>
* s/mingw32.h (HAVE_STRUCT_UTIMBUF): Remove.
* s/windowsnt.h (HAVE_STRUCT_UTIMBUF): Remove.
* systime.h: Use HAVE_UTIME.
* sysdep.c (struct utimbuf): Remove.
* sysdep.c (set_file_times): Prefer utime() to utimes().
* config.h.in (HAVE_UTIME): New.
* config.h.in (HAVE_UTIME_H): Remove.
* config.h.in (HAVE_STRUCT_UTIMBUF): Remove.
2001-02-09 Martin Buchholz <martin(a)xemacs.org>
* s/aix4.h: Hide #pragmas inside #ifndef NOT_C_CODE.
2001-02-08 Martin Buchholz <martin(a)xemacs.org>
* s/irix6-0.h: Use the standard system memmove, not bcopy.
-------- ChangeLog entries from xemacs-21.2.45/tests/ChangeLog -------
2001-02-20 Matt Tucker <tuck(a)whistlingfish.net>
* automated/syntax-tests.el: remove debug message
2001-02-17 Matt Tucker <tuck(a)whistlingfish.net>
* automated/syntax-tests.el:
Added tests for syntax-table extents.
Added regression tests for fencepost bugs with
`find_start_of_comment' and `find_end_of_comment'.
-------- ChangeLog entries from xemacs-21.2.45/ChangeLog -------
2001-02-13 Martin Buchholz <martin(a)xemacs.org>
* aclocal.m4: Fix module support for AIX cc.
Support possible future OSes irix7, aix5, osf[56].
2001-02-12 Martin Buchholz <martin(a)xemacs.org>
* configure.in: No need for NON_GNU_CPP on SCO.
2001-02-10 Martin Buchholz <martin(a)xemacs.org>
* etc/MACHINES: Rewritten. Bitrot discarded.
2001-02-09 Martin Buchholz <martin(a)xemacs.org>
* configure.in: Prefer utime to utimes - it's more standard.
Remove explicit checking for struct utimbuf.
Remove explicit checking for <utime.h>.
Combined into one simpler test for utime.
Add explicit check for utimes, if utime not found.
- 2 participants
- 1 comments
Re: GTK: In or out? I need more non-Linux build reports!!
23 years, 9 months
William M. Perry
William M. Perry
Marco Walther <marcow(a)jena.eng.sun.com> writes:
> Stephen,
>
> I've built successfully on Solaris 8 SPARC (with & without gtk) two
> days ago and I've even sent the built reports.
>
> But I got an additional question (maybe it was answered before but I
> joined the beta fun not long ago): I'm currently on the gtk cvs branch
> of 21.2.44 and would like to know when & how the 21.2.45 changes will
> be merged in?
I've got the diffs on my box here, just need to merge them and commit.
Maybe before I leave for the airport. If not late today, then early
tomorrow morning.
-bp
- 1 participants
- 0 comments