Mercurial > emacs
comparison lisp/mail/rmail.el @ 82511:ad03d7b3a351
(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:36:42 +0000 |
| parents | 254d73284bb0 |
| children | 20ca9ea6e1d1 b83d0dadb2a7 |
comparison
equal
deleted
inserted
replaced
| 82510:73e2928cb544 | 82511:ad03d7b3a351 |
|---|---|
| 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 ;; I'm not sure if M-x rmail is the only entry point to this package. | |
| 245 ;; If so, this can be moved there. | |
| 246 (rmail-movemail-variant-p) | |
| 241 | 247 |
| 242 ;;;###autoload | 248 ;;;###autoload |
| 243 (defcustom rmail-dont-reply-to-names nil "\ | 249 (defcustom rmail-dont-reply-to-names nil "\ |
| 244 *A regexp specifying addresses to prune from a reply message. | 250 *A regexp specifying addresses to prune from a reply message. |
| 245 A value of nil means exclude your own email address as an address | 251 A value of nil means exclude your own email address as an address |
| 1816 (with-temp-buffer | 1822 (with-temp-buffer |
| 1817 (let ((errors (current-buffer))) | 1823 (let ((errors (current-buffer))) |
| 1818 (buffer-disable-undo errors) | 1824 (buffer-disable-undo errors) |
| 1819 (let ((args | 1825 (let ((args |
| 1820 (append | 1826 (append |
| 1821 (list (or rmail-movemail-program | 1827 (list rmail-movemail-program nil errors nil) |
| 1822 (expand-file-name "movemail" | |
| 1823 exec-directory)) | |
| 1824 nil errors nil) | |
| 1825 (if rmail-preserve-inbox | 1828 (if rmail-preserve-inbox |
| 1826 (list "-p") | 1829 (list "-p") |
| 1827 nil) | 1830 nil) |
| 1828 (if (rmail-movemail-variant-p 'mailutils) | 1831 (if (rmail-movemail-variant-p 'mailutils) |
| 1829 (append (list "--emacs") rmail-movemail-flags) | 1832 (append (list "--emacs") rmail-movemail-flags) |