Mercurial > emacs
changeset 78605:58298f7fd671
(rmail-movemail-variant-p): Call on load to set movemail related variables.
(rmail-insert-inbox-text): Use only rmail-movemail-program, which
will now be set before this is called.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 22 Aug 2007 03:33:37 +0000 |
| parents | 614e3fc32bdf |
| children | 5d123f7083ac |
| files | lisp/mail/rmail.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Wed Aug 22 03:33:13 2007 +0000 +++ b/lisp/mail/rmail.el Wed Aug 22 03:33:37 2007 +0000 @@ -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)