mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-movemail-variant-p): Call on load to set movemail related variables.

Browse source 
(rmail-insert-inbox-text): Use only rmail-movemail-program, which
will now be set before this is called.
This commit is contained in:
Glenn Morris 2007-08-22 03:33:37 +00:00
parent 0d827f6f0f
commit c27ed12d73
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/mail/rmail.el
View file

@ -239,6 +239,10 @@ Currently known variants are 'emacs and 'mailutils."
(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 @@ is non-nil if the user has supplied the password interactively.
(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)