# HG changeset patch # User cvs # Date 1186990147 -7200 # Node ID 869e1851236bac11a1177226478b09946ad38743 # Parent 4ae9a57f18b21cb4535729702c2d7a0d16a9ca17 Import from CVS: tag xemacs-20-1p4 diff -r 4ae9a57f18b2 -r 869e1851236b CHANGES-beta --- a/CHANGES-beta Mon Aug 13 09:28:40 2007 +0200 +++ b/CHANGES-beta Mon Aug 13 09:29:07 2007 +0200 @@ -1,9 +1,14 @@ -*- indented-text -*- to 20.1 +-- facemenu.el boo boo. +-- VM-6.27 +-- README.htmlpro left as reference for htmlpro.dtd + -- Commercial sound driver fix -- Wnn6 corrections -- Filling corrections -- Animated GIF boo boo. + -- time.el-1.15 -- itimer.el-1.06 -- facemenu-keymap moved to `C-x F' diff -r 4ae9a57f18b2 -r 869e1851236b ChangeLog --- a/ChangeLog Mon Aug 13 09:28:40 2007 +0200 +++ b/ChangeLog Mon Aug 13 09:29:07 2007 +0200 @@ -1,3 +1,7 @@ +Wed Apr 16 17:44:05 1997 Steven L Baur + + * XEmacs 20.1 is re-released. + Tue Apr 15 21:03:22 1997 Steven L Baur * XEmacs 20.1 is released. diff -r 4ae9a57f18b2 -r 869e1851236b etc/sgml/README.htmlpro --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/etc/sgml/README.htmlpro Mon Aug 13 09:29:07 2007 +0200 @@ -0,0 +1,6 @@ +Drazen Kacar writes regarding htmlpro.dtd: + +You probably want the home page URL, though. Try + +The site cannot be reached sometimes. The mirror exists somewhere, but I +don't have the URL. diff -r 4ae9a57f18b2 -r 869e1851236b lisp/efs/dired-faces.el --- a/lisp/efs/dired-faces.el Mon Aug 13 09:28:40 2007 +0200 +++ b/lisp/efs/dired-faces.el Mon Aug 13 09:29:07 2007 +0200 @@ -63,8 +63,8 @@ "Face used for unimportant files." :group 'dired) -(defface dired-face-permissions '((t (:background "grey75") - (:foreground "black"))) +(defface dired-face-permissions '((t (:background "grey75" + :foreground "black"))) "Face used for interactive permissions." :group 'dired) diff -r 4ae9a57f18b2 -r 869e1851236b lisp/prim/about.el --- a/lisp/prim/about.el Mon Aug 13 09:28:40 2007 +0200 +++ b/lisp/prim/about.el Mon Aug 13 09:29:07 2007 +0200 @@ -1122,6 +1122,7 @@ Fred Appelman Erik \"The Pope\" Arneson Tor Arntsen + Marc Aurel <4-tea-2@bong.saar.de> Larry Auton Oswald P. Backus IV Mike Battaglia @@ -1169,6 +1170,7 @@ Holger Franz Benjamin Fried Barry Friedman + Kazuyoshi Furutaka Lew Gaiter III Itay Gat Tim Geisler @@ -1176,6 +1178,7 @@ Christian F. Goetze Yusuf Goolamabbas Wolfgang Grieskamp + John Griffith James Grinter Ben Gross Dirk Grunwald @@ -1205,6 +1208,7 @@ Philip Johnson J. Kean Johnston Andreas Kaempf + Yoshiaki Kasahara Amir Katz Doug Keller Hunter Kelly @@ -1225,6 +1229,7 @@ Christian Limpach Markus Linnala Robert Lipe + Derrell Lipman Damon Lipparelli Hamish Macdonald Ian MacKinnon @@ -1246,6 +1251,7 @@ Heiko Muenkel Arup Mukherjee Colas Nahaboo + TSUTOMU NAKAMURA Lynn D. Newton Casey Nielson Georg Nikodym @@ -1295,6 +1301,7 @@ Anders Stenman Jason Stewart Rick Tait + Samuel Tardieu James Thompson Raymond L. Toy Remek Trzaska @@ -1309,6 +1316,7 @@ Rich Williams David C Worenklein Takeshi Yamada + Katsumi Yamaoka Jason Yanowitz La Monte Yarroll Blair Zajac diff -r 4ae9a57f18b2 -r 869e1851236b lisp/utils/facemenu.el --- a/lisp/utils/facemenu.el Mon Aug 13 09:28:40 2007 +0200 +++ b/lisp/utils/facemenu.el Mon Aug 13 09:29:07 2007 +0200 @@ -269,8 +269,7 @@ ;; Global bindings: (if (string-match "XEmacs" emacs-version) (easy-menu-change '("Edit") (car facemenu-menu) (cdr facemenu-menu)) - (define-key global-map [C-down-mouse-2] 'facemenu-menu)) - (if facemenu-key (define-key global-map facemenu-key 'facemenu-keymap))) + (define-key global-map [C-down-mouse-2] 'facemenu-menu))) (fset 'facemenu-region-active-p (if (string-match "XEmacs" emacs-version) diff -r 4ae9a57f18b2 -r 869e1851236b lisp/vm/vm-autoload.el --- a/lisp/vm/vm-autoload.el Mon Aug 13 09:28:40 2007 +0200 +++ b/lisp/vm/vm-autoload.el Mon Aug 13 09:29:07 2007 +0200 @@ -2204,7 +2204,7 @@ (autoload (quote vm-mode) "vm-startup" "Major mode for reading mail. -This is VM 6.26. +This is VM 6.27. Commands: h - summarize folder contents diff -r 4ae9a57f18b2 -r 869e1851236b lisp/vm/vm-menu.el --- a/lisp/vm/vm-menu.el Mon Aug 13 09:28:40 2007 +0200 +++ b/lisp/vm/vm-menu.el Mon Aug 13 09:29:07 2007 +0200 @@ -846,7 +846,8 @@ ;; selection. This will cause the command loop to ;; resume which might undo what set-buffer does. (select-window (event-window event)) - (and (event-point event) (goto-char (event-point event)))) + (and (event-closest-point event) + (goto-char (event-closest-point event)))) ((vm-menu-fsfemacs-menus-p) (set-buffer (window-buffer (posn-window (event-start event)))) (goto-char (posn-point (event-start event)))))) diff -r 4ae9a57f18b2 -r 869e1851236b lisp/vm/vm-mime.el --- a/lisp/vm/vm-mime.el Mon Aug 13 09:28:40 2007 +0200 +++ b/lisp/vm/vm-mime.el Mon Aug 13 09:29:07 2007 +0200 @@ -37,6 +37,7 @@ (defun vm-mm-layout-body-start (e) (aref e 8)) (defun vm-mm-layout-body-end (e) (aref e 9)) (defun vm-mm-layout-parts (e) (aref e 10)) +;; if display of MIME part fails, error string will be here. (defun vm-mm-layout-cache (e) (aref e 11)) (defun vm-set-mm-layout-type (e type) (aset e 0 type)) @@ -1248,7 +1249,9 @@ ;; text/plain. (vm-mime-display-internal-text/plain layout))) (t (and extent (vm-mime-rewrite-failed-button - extent (vm-mm-layout-cache layout))) + extent + (or (vm-mm-layout-cache layout) + "no external viewer defined for type"))) (vm-mime-display-internal-application/octet-stream (or extent layout)))) (and extent (vm-mime-delete-button-maybe extent))) @@ -1259,25 +1262,28 @@ (vm-mime-display-button-xxxx layout t)) (defun vm-mime-display-internal-text/html (layout) - (let ((buffer-read-only nil) - (work-buffer nil)) - (message "Inlining text/html, be patient...") - ;; w3-region is not as tame as we would like. - ;; make sure the yoke is firmly attached. - (unwind-protect - (progn - (save-excursion - (set-buffer (setq work-buffer - (generate-new-buffer " *workbuf*"))) - (vm-mime-insert-mime-body layout) - (vm-mime-transfer-decode-region layout (point-min) (point-max)) - (save-excursion - (save-window-excursion - (w3-region (point-min) (point-max))))) - (insert-buffer-substring work-buffer)) - (and work-buffer (kill-buffer work-buffer))) - (message "Inlining text/html... done") - t )) + (if (fboundp 'w3-region) + (let ((buffer-read-only nil) + (work-buffer nil)) + (message "Inlining text/html, be patient...") + ;; w3-region is not as tame as we would like. + ;; make sure the yoke is firmly attached. + (unwind-protect + (progn + (save-excursion + (set-buffer (setq work-buffer + (generate-new-buffer " *workbuf*"))) + (vm-mime-insert-mime-body layout) + (vm-mime-transfer-decode-region layout (point-min) (point-max)) + (save-excursion + (save-window-excursion + (w3-region (point-min) (point-max))))) + (insert-buffer-substring work-buffer)) + (and work-buffer (kill-buffer work-buffer))) + (message "Inlining text/html... done") + t ) + (vm-set-mm-layout-cache layout "Need W3 to inline HTML") + nil )) (defun vm-mime-display-internal-text/plain (layout &optional no-highlighting) (let ((start (point)) end old-size @@ -1764,7 +1770,7 @@ (defun vm-mime-display-button-xxxx (layout disposable) (let ((description (vm-mime-layout-description layout))) (vm-mime-insert-button - (format "%-35.35s [%s to display]" + (format "%-35.35s [%s to attempt display]" description (if (vm-mouse-support-possible-p) "Click mouse-2" "Press RETURN")) (function @@ -1875,7 +1881,7 @@ (let* ((buffer-read-only nil) (start (point))) (goto-char (vm-extent-start-position button)) - (insert (format "DISPLAY FAILED -- %s" error-string)) + (insert (format "DISPLAY FAILED -- %s\n" error-string)) (vm-set-extent-endpoints button start (vm-extent-end-position button)) (delete-region (point) (vm-extent-end-position button)))) @@ -2454,9 +2460,6 @@ (narrow-to-region (point) (point-max)) (setq charset (vm-determine-proper-charset (point-min) (point-max))) - (if vm-xemacs-mule-p - (encode-coding-region (point-min) (point-max) - buffer-file-coding-system)) (setq encoding (vm-determine-proper-content-transfer-encoding (point-min) (point-max)) @@ -2498,7 +2501,11 @@ (cond ((bufferp object) (insert-buffer-substring object)) ((stringp object) - (let ((coding-system-for-read 'no-conversion)) + (let ((coding-system-for-read 'no-conversion) + ;; don't let file-coding-system be changed + ;; by insert-file-contents-literally. The + ;; value we bind to it to here isn't important. + (buffer-file-coding-system 'no-conversion)) (insert-file-contents-literally object)))) ;; gather information about the object from the extent. (if (setq already-mimed (extent-property e 'vm-mime-encoded)) @@ -2638,9 +2645,6 @@ nil (setq charset (vm-determine-proper-charset (point) (point-max))) - (if vm-xemacs-mule-p - (encode-coding-region (point-min) (point-max) - buffer-file-coding-system)) (setq encoding (vm-determine-proper-content-transfer-encoding (point) (point-max)) @@ -2758,9 +2762,6 @@ (narrow-to-region (point) (point-max)) (setq charset (vm-determine-proper-charset (point-min) (point-max))) - (if vm-xemacs-mule-p - (encode-coding-region (point-min) (point-max) - file-coding-system)) (setq encoding (vm-determine-proper-content-transfer-encoding (point-min) (point-max)) @@ -2955,9 +2956,6 @@ nil (setq charset (vm-determine-proper-charset (point) (point-max))) - (if vm-xemacs-mule-p - (encode-coding-region (point-min) (point-max) - file-coding-system)) (setq encoding (vm-determine-proper-content-transfer-encoding (point) (point-max)) diff -r 4ae9a57f18b2 -r 869e1851236b lisp/vm/vm-startup.el --- a/lisp/vm/vm-startup.el Mon Aug 13 09:28:40 2007 +0200 +++ b/lisp/vm/vm-startup.el Mon Aug 13 09:29:07 2007 +0200 @@ -276,7 +276,7 @@ (defun vm-mode (&optional read-only) "Major mode for reading mail. -This is VM 6.26. +This is VM 6.27. Commands: h - summarize folder contents diff -r 4ae9a57f18b2 -r 869e1851236b lisp/vm/vm-thread.el --- a/lisp/vm/vm-thread.el Mon Aug 13 09:28:40 2007 +0200 +++ b/lisp/vm/vm-thread.el Mon Aug 13 09:29:07 2007 +0200 @@ -149,14 +149,18 @@ (defun vm-thread-mark-for-summary-update (message-list) (while message-list - (vm-mark-for-summary-update (car message-list) t) - (vm-set-thread-list-of (car message-list) nil) - (vm-set-thread-indentation-of (car message-list) nil) - (vm-thread-mark-for-summary-update - (get (intern (vm-su-message-id (car message-list)) - vm-thread-obarray) - 'children)) - (setq message-list (cdr message-list)))) + ;; if thread-list is null then we've already marked this + ;; message, or it doesn't need marking. + (if (null (vm-thread-list-of (car message-list))) + nil + (vm-mark-for-summary-update (car message-list) t) + (vm-set-thread-list-of (car message-list) nil) + (vm-set-thread-indentation-of (car message-list) nil) + (vm-thread-mark-for-summary-update + (get (intern (vm-su-message-id (car message-list)) + vm-thread-obarray) + 'children)) + (setq message-list (cdr message-list))))) (defun vm-thread-list (message) (let ((done nil) diff -r 4ae9a57f18b2 -r 869e1851236b lisp/vm/vm-version.el --- a/lisp/vm/vm-version.el Mon Aug 13 09:28:40 2007 +0200 +++ b/lisp/vm/vm-version.el Mon Aug 13 09:29:07 2007 +0200 @@ -2,7 +2,7 @@ (provide 'vm-version) -(defconst vm-version "6.26" +(defconst vm-version "6.27" "Version number of VM.") (defun vm-version ()