387 |
|
|
388 |
|
|
389 |
(defun sendmail-sync-aliases () |
(defun sendmail-sync-aliases () |
390 |
(let ((modtime (nth 5 (file-attributes mail-personal-alias-file)))) |
(when mail-personal-alias-file |
391 |
(or (equal mail-alias-modtime modtime) |
(let ((modtime (nth 5 (file-attributes mail-personal-alias-file)))) |
392 |
(setq mail-alias-modtime modtime |
(or (equal mail-alias-modtime modtime) |
393 |
mail-aliases t)))) |
(setq mail-alias-modtime modtime |
394 |
|
mail-aliases t))))) |
395 |
|
|
396 |
(defun mail-setup (to subject in-reply-to cc replybuffer actions) |
(defun mail-setup (to subject in-reply-to cc replybuffer actions) |
397 |
(or mail-default-reply-to |
(or mail-default-reply-to |
400 |
(if (eq mail-aliases t) |
(if (eq mail-aliases t) |
401 |
(progn |
(progn |
402 |
(setq mail-aliases nil) |
(setq mail-aliases nil) |
403 |
(if (file-exists-p mail-personal-alias-file) |
(when mail-personal-alias-file |
404 |
(build-mail-aliases)))) |
(if (file-exists-p mail-personal-alias-file) |
405 |
|
(build-mail-aliases))))) |
406 |
;; Don't leave this around from a previous message. |
;; Don't leave this around from a previous message. |
407 |
(kill-local-variable 'buffer-file-coding-system) |
(kill-local-variable 'buffer-file-coding-system) |
408 |
;; This doesn't work for enable-multibyte-characters. |
;; This doesn't work for enable-multibyte-characters. |