* Patches for message.el message-{sendmail-f-is-evil,elide-elipsis}
@ 1997-01-07 20:08 visigoth
0 siblings, 0 replies; only message in thread
From: visigoth @ 1997-01-07 20:08 UTC (permalink / raw)
Our local setup uses MMDF, and MMDF's sendmail has an irritating habit
of completely destroying the From: line in a message when the -f
switch is present on the sendmail command line.
I also noticed the message-elide-region function new, and since I do
that a lot in my own messages, but use a different style for the
ellipsis, added a variable.
Use this as you see fit--I'd really appreciate the "-f" patch to be
available in some form, however, since (ahem) I've been trying to
convince more of my friends to use Gnus and they've noticed the
problem.
John.
--- message.el.old Mon Jan 6 05:35:25 1997
+++ message.el Tue Jan 7 15:01:34 1997
@@ -219,6 +219,9 @@
:type 'regexp
:group 'message-various)
+(defcustom message-elide-elipsis "\n[...]\n\n"
+ "*The string which is inserted for elided text.")
+
(defcustom message-interactive nil
"Non-nil means when sending a message wait for and display errors.
nil means let mailer mail back a message to report errors."
@@ -360,6 +363,13 @@
(const use)
(const ask)))
+;; stuff relating to broken sendmail in MMDF
+(defcustom message-sendmail-f-is-evil nil
+ "*Non-nil means that \"-f username\" should not be added to the sendmail
+command line, because it is even more evil than leaving it out."
+ :group 'message-sending
+ :type 'boolean)
+
;; qmail-related stuff
(defcustom message-qmail-inject-program "/var/qmail/bin/qmail-inject"
"Location of the qmail-inject program."
@@ -1234,14 +1244,13 @@
(or (bolp) (insert "\n")))))
(defun message-elide-region (b e)
- "Elide the text between point and mark.
-An ellipsis (\"[...]\") will be inserted where the text was
-killed."
+ "Elide the text between point and mark. An ellipsis (from
+message-elide-elipsis) will be inserted where the text was killed."
(interactive "r")
(kill-region b e)
(unless (bolp)
(insert "\n"))
- (insert "\n[...]\n\n"))
+ (insert message-elide-elipsis))
(defvar message-caesar-translation-table nil)
@@ -1661,7 +1670,10 @@
nil errbuf nil "-oi")
;; Always specify who from,
;; since some systems have broken sendmails.
- (list "-f" (user-login-name))
+ ;; But some systems are more broken with -f, so
+ ;; we'll let users override this.
+ (if (null message-sendmail-f-is-evil)
+ (list "-f" (user-login-name)))
;; These mean "report errors by mail"
;; and "deliver in background".
(if (null message-interactive) '("-oem" "-odb"))
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~1997-01-07 20:08 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1997-01-07 20:08 Patches for message.el message-{sendmail-f-is-evil,elide-elipsis} visigoth
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).