[Emacs-diffs] Changes to emacs/lisp/mail/rmail.el, v [EMACS_22_BASE]

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Glenn Morris <gm>       07/08/22 03:33:38

Index: rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.433.2.4
retrieving revision 1.433.2.5
diff -u -b -r1.433.2.4 -r1.433.2.5
--- rmail.el    8 Aug 2007 07:18:14 -0000       1.433.2.4
+++ rmail.el    22 Aug 2007 03:33:37 -0000      1.433.2.5
@@ -239,6 +239,10 @@
     (setq rmail-movemail-variant-in-use (rmail-autodetect)))
   (not (null (member rmail-movemail-variant-in-use variants))))
 
+;; Call for effect, to set rmail-movemail-program (if not set by the
+;; user), and rmail-movemail-variant-in-use. Used by various functions.
+(rmail-movemail-variant-p)
+
 ;;;###autoload
 (defcustom rmail-dont-reply-to-names nil "\
 *A regexp specifying addresses to prune from a reply message.
@@ -1818,10 +1822,7 @@
                 (buffer-disable-undo errors)
                 (let ((args
                        (append
-                        (list (or rmail-movemail-program
-                                  (expand-file-name "movemail"
-                                                    exec-directory))
-                              nil errors nil)
+                        (list rmail-movemail-program nil errors nil)
                         (if rmail-preserve-inbox
                             (list "-p")
                           nil)