Mercurial > emacs
changeset 68133:fc48ac700159
(mh-forward): Cosmetics on prompt when draft exists.
(mh-send-letter): Add -msgid to mh-send-args (closes SF #725425).
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Wed, 11 Jan 2006 09:14:14 +0000 |
| parents | 91ac87e90cb5 |
| children | 48bf79d0aede |
| files | lisp/mh-e/ChangeLog lisp/mh-e/mh-comp.el |
| diffstat | 2 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mh-e/ChangeLog Wed Jan 11 09:01:22 2006 +0000 +++ b/lisp/mh-e/ChangeLog Wed Jan 11 09:14:14 2006 +0000 @@ -1,5 +1,8 @@ 2006-01-11 Bill Wohler <wohler@newt.com> + * mh-comp.el (mh-forward): Cosmetics on prompt when draft exists. + (mh-send-letter): Add -msgid to mh-send-args (closes SF #725425). + * mh-utils.el (mh-x-image-url-cache-canonicalize): Use url-hexify-string to remove special characters from filenames (closes SF #1396499). Note that this invalidates the existing
--- a/lisp/mh-e/mh-comp.el Wed Jan 11 09:01:22 2006 +0000 +++ b/lisp/mh-e/mh-comp.el Wed Jan 11 09:14:14 2006 +0000 @@ -378,7 +378,7 @@ ;; forw always leaves file in "draft" since it doesn't have -draft (draft-name (expand-file-name "draft" mh-user-path)) (draft (cond ((or (not (file-exists-p draft-name)) - (y-or-n-p "The file 'draft' exists. Discard it? ")) + (y-or-n-p "The file draft exists; discard it? ")) (mh-exec-cmd "forw" "-build" (if (and (mh-variant-p 'nmh) mh-compose-forward-as-mime-flag) @@ -1475,12 +1475,16 @@ (and (boundp 'default-buffer-file-coding-system ) default-buffer-file-coding-system) 'iso-latin-1)))) + ;; Adding a Message-ID field looks good, makes it easier to search for + ;; message in your +outbox, and best of all doesn't break threading for + ;; the recipient if you reply to a message in your +outbox. + (setq mh-send-args (concat "-msgid " mh-send-args)) ;; The default BCC encapsulation will make a MIME message unreadable. ;; With nmh use the -mime arg to prevent this. (if (and (mh-variant-p 'nmh) (mh-goto-header-field "Bcc:") (mh-goto-header-field "Content-Type:")) - (setq mh-send-args (format "-mime %s" mh-send-args))) + (setq mh-send-args (concat "-mime " mh-send-args))) (cond (arg (pop-to-buffer mh-mail-delivery-buffer) (erase-buffer)