From: yamaoka <yamaoka>
Date: Tue, 12 Mar 2002 23:31:19 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_6-01-quimby~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=60197a678d4a280a18907c3bc2fbfaeb252bace1;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c617a52..52a6d57 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,14 @@
+2002-03-12  Simon Josefsson  <jas@extundo.com>
+
+	* message.el (message-qmail-inject-args): May be function.
+	(message-send-mail-with-qmail): Call function if m-q-i-a is
+	function.  From fn@hungry.org (Faried Nawaz).
+
 2002-03-12  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+	* message.el (message-abbrevs-loaded): Remove.
+	(mailabbrev): Require it.
+
 	* nnslashdot.el (nnslashdot-request-article): Remove IFRAME.
 
 2002-03-12  Katsumi Yamaoka  <yamaoka@jpl.org>
diff --git a/lisp/lpath.el b/lisp/lpath.el
index 40fba16..0442069 100644
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -23,6 +23,7 @@
 	       image-type-from-file-header
 	       make-symbolic-link
 	       make-temp-file message-xmas-redefine
+	       mail-abbrev-in-expansion-header-p
 	       mail-aliases-setup mm-copy-tree
 	       mule-write-region-no-coding-system put-image
 	       ring-elements
diff --git a/lisp/message.el b/lisp/message.el
index 6844ba4..09acdbc 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -48,9 +48,12 @@
     (require 'canlock)))
 (require 'mailheader)
 (require 'nnheader)
-;; This is apparently necessary even though things are autoloaded:
+;; This is apparently necessary even though things are autoloaded.
+;; Because we dynamically bind mail-abbrev-mode-regexp, we'd better
+;; require mailabbrev here.
 (if (featurep 'xemacs)
-    (require 'mail-abbrevs))
+    (require 'mail-abbrevs)
+  (require 'mailabbrev))
 (require 'mime-edit)
 (eval-when-compile (require 'static))
 
@@ -664,13 +667,15 @@ Doing so would be even more evil than leaving it out."
 
 (defcustom message-qmail-inject-args nil
   "Arguments passed to qmail-inject programs.
-This should be a list of strings, one string for each argument.
+This should be a list of strings, one string for each argument.  It
+may also be a function.
 
 For e.g., if you wish to set the envelope sender address so that bounces
 go to the right place or to deal with listserv's usage of that address, you
 might set this variable to '(\"-f\" \"you@some.where\")."
   :group 'message-sending
-  :type '(repeat string))
+  :type '(choice (function)
+		 (repeat string)))
 
 (defvar message-cater-to-broken-inn t
   "Non-nil means Gnus should not fold the `References' header.
@@ -842,8 +847,6 @@ point and mark around the citation text as modified."
   :type 'function
   :group 'message-insertion)
 
-(defvar message-abbrevs-loaded nil)
-
 ;;;###autoload
 (defcustom message-signature t
   "*String to be inserted at the end of the message buffer.
@@ -1439,7 +1442,6 @@ no, only reply back to the author."
   (autoload 'gnus-point-at-bol "gnus-util")
   (autoload 'gnus-output-to-rmail "gnus-util")
   (autoload 'gnus-output-to-mail "gnus-util")
-  (autoload 'mail-abbrev-in-expansion-header-p "mailabbrev")
   (autoload 'nndraft-request-associate-buffer "nndraft")
   (autoload 'nndraft-request-expire-articles "nndraft")
   (autoload 'gnus-open-server "gnus-int")
@@ -3556,7 +3558,9 @@ to find out how to use this."
 	;; free for -inject-arguments -- a big win for the user and for us
 	;; since we don't have to play that double-guessing game and the user
 	;; gets full control (no gestapo'ish -f's, for instance).  --sj
-	message-qmail-inject-args))
+	(if (functionp 'message-qmail-inject-args)
+	    (funcall 'message-qmail-inject-args)
+	  message-qmail-inject-args)))
     ;; qmail-inject doesn't say anything on it's stdout/stderr,
     ;; we have to look at the retval instead
     (0 nil)