* message.el (message-fcc-externalize-attachments): New variable.

	(message-do-fcc): Use it.

	* gnus-msg.el (gnus-gcc-externalize-attachments): Doc fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d5f0c6e..54b1eaa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-01-01  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * message.el (message-fcc-externalize-attachments): New variable.
+       (message-do-fcc): Use it.
+
        * gnus-msg.el (gnus-gcc-externalize-attachments): New variable.
        (gnus-inews-do-gcc): Use it.
 

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 204aa66..37489c2 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -138,7 +138,7 @@ See Info node `(gnus)Posting Styles'."
   :type 'boolean)
 
 (defcustom gnus-gcc-externalize-attachments nil
-  "Should local-file attachments be included as external parts?
+  "Should local-file attachments be included as external parts in Gcc copies?
 If it is `all', attach files as external parts;
 if a regexp and matches the Gcc group name, attach files as external parts;
 If nil, attach files as normal parts."

diff --git a/lisp/message.el b/lisp/message.el
index 4e196b9..980a6cf 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -127,6 +127,11 @@ mailbox format."
                (function :tag "Other"))
   :group 'message-sending)
 
+(defcustom message-fcc-externalize-attachments nil
+  "If non-nil, attachments are included as external parts in Fcc copies."
+  :type 'boolean
+  :group 'message-sending)
+
 (defcustom message-courtesy-message
   "The following message is a courtesy copy of an article\nthat has been posted to %s as well.\n\n"
   "*This is inserted at the start of a mailed copy of a posted message.
@@ -3433,7 +3438,8 @@ Otherwise, generate and save a value for `canlock-password' first."
   "Process Fcc headers in the current buffer."
   (let ((case-fold-search t)
        (buf (current-buffer))
-       list file)
+       list file
+       (mml-externalize-attachments message-fcc-externalize-attachments))
     (save-excursion
       (save-restriction
        (message-narrow-to-headers)