Mercurial > emacs
comparison lisp/mail/rmail.el @ 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 | 0092d723fe35 |
children | 5d123f7083ac |
comparison
equal
deleted
inserted
replaced
78604:614e3fc32bdf | 78605:58298f7fd671 |
---|---|
236 Currently known variants are 'emacs and 'mailutils." | 236 Currently known variants are 'emacs and 'mailutils." |
237 (when (not rmail-movemail-variant-in-use) | 237 (when (not rmail-movemail-variant-in-use) |
238 ;; Autodetect | 238 ;; Autodetect |
239 (setq rmail-movemail-variant-in-use (rmail-autodetect))) | 239 (setq rmail-movemail-variant-in-use (rmail-autodetect))) |
240 (not (null (member rmail-movemail-variant-in-use variants)))) | 240 (not (null (member rmail-movemail-variant-in-use variants)))) |
241 | |
242 ;; Call for effect, to set rmail-movemail-program (if not set by the | |
243 ;; user), and rmail-movemail-variant-in-use. Used by various functions. | |
244 (rmail-movemail-variant-p) | |
241 | 245 |
242 ;;;###autoload | 246 ;;;###autoload |
243 (defcustom rmail-dont-reply-to-names nil "\ | 247 (defcustom rmail-dont-reply-to-names nil "\ |
244 *A regexp specifying addresses to prune from a reply message. | 248 *A regexp specifying addresses to prune from a reply message. |
245 A value of nil means exclude your own email address as an address | 249 A value of nil means exclude your own email address as an address |
1816 (with-temp-buffer | 1820 (with-temp-buffer |
1817 (let ((errors (current-buffer))) | 1821 (let ((errors (current-buffer))) |
1818 (buffer-disable-undo errors) | 1822 (buffer-disable-undo errors) |
1819 (let ((args | 1823 (let ((args |
1820 (append | 1824 (append |
1821 (list (or rmail-movemail-program | 1825 (list rmail-movemail-program nil errors nil) |
1822 (expand-file-name "movemail" | |
1823 exec-directory)) | |
1824 nil errors nil) | |
1825 (if rmail-preserve-inbox | 1826 (if rmail-preserve-inbox |
1826 (list "-p") | 1827 (list "-p") |
1827 nil) | 1828 nil) |
1828 (if (rmail-movemail-variant-p 'mailutils) | 1829 (if (rmail-movemail-variant-p 'mailutils) |
1829 (append (list "--emacs") rmail-movemail-flags) | 1830 (append (list "--emacs") rmail-movemail-flags) |