mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 15:00:45 -08:00
Code Issues Projects Releases Wiki Activity

(mh-send-uses-spost): New variable.

Browse source 
(mh-send-letter): Do not use -msgid and -mime if mh-send-uses-spost is
t (closes SF #1486726).
This commit is contained in:
Bill Wohler 2006-06-16 00:48:04 +00:00
parent 2f182d8d51
commit fbf62741d6
2 changed files with 27 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/mh-e/ChangeLog
View file

@ -1,3 +1,9 @@
2006-06-05 Jacob Morzinski <morzinski@MIT.EDU> (tiny change)
* mh-comp.el (mh-send-uses-spost): New variable.
(mh-send-letter): Do not use -msgid and -mime if
mh-send-uses-spost is t (closes SF #1486726).
2006-05-06 Bill Wohler <wohler@newt.com>
Release MH-E version 8.0.

31
lisp/mh-e/mh-comp.el
View file

@ -53,6 +53,15 @@
"Name of the MH send program.
Some sites need to change this because of a name conflict.")
(defvar mh-send-uses-spost-flag nil
"Non-nil means \"send\" uses \"spost\" to submit messages.
If the value of \"postproc:\" is \"spost\", you may need to set
this variable to t to tell MH-E to avoid using features of
\"post\" that are not supported by \"spost\". You'll know that
you'll need to do this if sending mail fails with an error of
\"spost: -msgid unknown\".")
(defvar mh-redist-background nil
"If non-nil redist will be done in background like send.
This allows transaction log to be visible if -watch, -verbose or
@ -267,16 +276,18 @@ use `mh-send-prog' to tell MH-E the name."
(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 (concat "-mime " mh-send-args)))
;; Older versions of spost do not support -msgid and -mime.
(unless mh-send-uses-spost-flag
;; 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 (concat "-mime " mh-send-args))))
(cond (arg
(pop-to-buffer mh-mail-delivery-buffer)
(erase-buffer)