[Emacs-diffs] emacs/lisp/mail rmail.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/02/04 03:38:26

Modified files:
        lisp/mail      : rmail.el 

Log message:
        No need for mule-util when compiling.
        (rmail-first-message): Unbreak it.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.491&r2=1.492

Patches:
Index: rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.491
retrieving revision 1.492
diff -u -b -r1.491 -r1.492
--- rmail.el    3 Feb 2009 04:07:25 -0000       1.491
+++ rmail.el    4 Feb 2009 03:38:26 -0000       1.492
@@ -39,7 +39,6 @@
 ;;
 
 (require 'mail-utils)
-(eval-when-compile (require 'mule-util)) ; for detect-coding-with-priority
 
 (defconst rmail-attribute-header "X-RMAIL-ATTRIBUTES"
   "The header that stores the Rmail attribute data.")
@@ -1591,7 +1590,8 @@
               ;; Pull files off all-files onto files as long as there is
               ;; no name conflict.  A conflict happens when two inbox
               ;; file names have the same last component.
-             ;; FIXME why does this "conflict" need kid gloves?
+             ;; The reason this careful handling is necessary seems
+             ;; to be that rmail-insert-inbox-text uses .newmail-BASENAME.
              (while (and all-files
                           (not (member (file-name-nondirectory (car all-files))
                                        file-last-names)))
@@ -2884,7 +2884,7 @@
   "Show first message in file."
   (interactive)
   (rmail-maybe-set-message-counters)
-  (rmail-show-message-maybe (< 1 rmail-total-messages)))
+  (rmail-show-message-maybe 1))
 
 (defun rmail-last-message ()
   "Show last message in file."