--- message.el.~6.283.~ Tue Jan 7 12:20:10 2003 +++ message.el Tue Jan 7 18:14:26 2003 @@ -1,5 +1,5 @@ ;;; message.el --- composing mail and news messages -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002 +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -344,9 +344,9 @@ ;;;###autoload (defcustom message-cross-post-default t - "When non-nil `message-cross-post-followup-to' will normally perform a -crosspost. If nil, `message-cross-post-followup-to' will only do a followup. -Note that you can explicitly override this setting by calling + "When non-nil `message-cross-post-followup-to' will perform a crosspost. +If nil, `message-cross-post-followup-to' will only do a followup. Note that +you can explicitly override this setting by calling `message-cross-post-followup-to' with a prefix." :type 'boolean :group 'message-various) @@ -371,7 +371,7 @@ "Function to use to insert note about Crosspost or Followup-To. The function will be called with four arguments. The function should not only insert a note, but also ensure old notes are deleted. See the documentation -for `message-cross-post-insert-note'. " +for `message-cross-post-insert-note'." :type 'function :group 'message-various) @@ -959,7 +959,7 @@ "*A list of GNKSA feet you are allowed to shoot. Gnus gives you all the opportunity you could possibly want for shooting yourself in the foot. Also, Gnus allows you to shoot the -feet of Good Net-Keeping Seal of Approval. The following are foot +feet of Good Net-Keeping Seal of Approval. The following are foot candidates: `empty-article' Allow you to post an empty article; `quoted-text-only' Allow you to post quoted text only; @@ -1559,7 +1559,7 @@ ;;; Start of functions adopted from `message-utils.el'. (defun message-strip-subject-trailing-was (subject) - "Remove trailing \"(Was: )\" from subject lines. + "Remove trailing \"(Was: )\" from SUBJECT lines. Leading \"Re: \" is not stripped by this function. Use the function `message-strip-subject-re' for this." (let* ((query message-subject-trailing-was-query) @@ -1594,7 +1594,7 @@ ;;;###autoload (defun message-change-subject (new-subject) - "Ask for new Subject: header, append (was: )." + "Ask for NEW-SUBJECT header, append (was: )." (interactive (list (read-from-minibuffer "New subject: "))) @@ -1604,7 +1604,7 @@ (save-excursion (let ((old-subject (message-fetch-field "Subject"))) (cond ((not old-subject) - (error "No current subject.")) + (error "No current subject")) ((not (string-match (concat "^[ \t]*" (regexp-quote new-subject) @@ -1634,7 +1634,7 @@ ;;;###autoload (defun message-mark-insert-file (file) - "Inserts FILE at point, marking it with enclosing tags. + "Insert FILE at point, marking it with enclosing tags. See `message-mark-insert-begin' and `message-mark-insert-end'." (interactive "fFile to insert: ") ;; reverse insertion to get correct result. @@ -1744,7 +1744,7 @@ ;;;###autoload (defun message-cross-post-followup-to (target-group) - "Crossposts message and sets Followup-To to TARGET-GROUP. + "Crossposts message and set Followup-To to TARGET-GROUP. With prefix-argument just set Follow-Up, don't cross-post." (interactive (list ; Completion based on Gnus @@ -1764,7 +1764,7 @@ (or old-groups "")))) ;; check whether target exactly matches old Newsgroups (cond ((not old-groups) - (error "No current newsgroup.")) + (error "No current newsgroup")) ((or (not in-old) (not (string-match (concat "^[ \t]*" @@ -1991,8 +1991,10 @@ (define-key message-mode-map "\C-c\C-f\C-m" 'message-goto-mail-followup-to) (define-key message-mode-map "\C-c\C-f\C-k" 'message-goto-keywords) (define-key message-mode-map "\C-c\C-f\C-u" 'message-goto-summary) - (define-key message-mode-map "\C-c\C-f\C-i" 'message-insert-or-toggle-importance) - (define-key message-mode-map "\C-c\C-f\C-a" 'message-gen-unsubscribed-mft) + (define-key message-mode-map "\C-c\C-f\C-i" + 'message-insert-or-toggle-importance) + (define-key message-mode-map "\C-c\C-f\C-a" + 'message-generate-unsubscribed-mail-followup-to) ;; modify headers (and insert notes in body) (define-key message-mode-map "\C-c\C-fs" 'message-change-subject) @@ -2014,7 +2016,8 @@ (define-key message-mode-map "\C-c\C-l" 'message-to-list-only) (define-key message-mode-map "\C-c\C-u" 'message-insert-or-toggle-importance) - (define-key message-mode-map "\C-c\M-n" 'message-insert-disposition-notification-to) + (define-key message-mode-map "\C-c\M-n" + 'message-insert-disposition-notification-to) (define-key message-mode-map "\C-c\C-y" 'message-yank-original) (define-key message-mode-map "\C-c\M-\C-y" 'message-yank-buffer) @@ -2046,7 +2049,6 @@ (easy-menu-define message-mode-menu message-mode-map "Message Menu." `("Message" - ["Sort Headers" message-sort-headers t] ["Yank Original" message-yank-original t] ["Fill Yanked Message" message-fill-yanked-message t] ["Insert Signature" message-insert-signature t] @@ -2057,16 +2059,6 @@ ["Kill To Signature" message-kill-to-signature t] ["Newline and Reformat" message-newline-and-reformat t] ["Rename buffer" message-rename-buffer t] - ["Flag As Important" message-insert-importance-high - ,@(if (featurep 'xemacs) '(t) - '(:help "Mark this message as important"))] - ["Flag As Unimportant" message-insert-importance-low - ,@(if (featurep 'xemacs) '(t) - '(:help "Mark this message as unimportant"))] - ["Request Receipt" - message-insert-disposition-notification-to - ,@(if (featurep 'xemacs) '(t) - '(:help "Request a receipt notification"))] ["Spellcheck" ispell-message ,@(if (featurep 'xemacs) '(t) '(:help "Spellcheck this message"))] @@ -2105,6 +2097,16 @@ ["Bcc" message-goto-bcc t] ["Fcc" message-goto-fcc t] ["Reply-To" message-goto-reply-to t] + ["Flag As Important" message-insert-importance-high + ,@(if (featurep 'xemacs) '(t) + '(:help "Mark this message as important"))] + ["Flag As Unimportant" message-insert-importance-low + ,@(if (featurep 'xemacs) '(t) + '(:help "Mark this message as unimportant"))] + ["Request Receipt" + message-insert-disposition-notification-to + ,@(if (featurep 'xemacs) '(t) + '(:help "Request a receipt notification"))] "----" ;; (typical) news stuff ["Summary" message-goto-summary t] @@ -2121,8 +2123,9 @@ ["Mail-Followup-To" message-goto-mail-followup-to t] ["Reduce To: to Cc:" message-reduce-to-to-cc t] "----" - ["Body" message-goto-body t] - ["Signature" message-goto-signature t])) + ["Sort Headers" message-sort-headers t] + ["Goto Body" message-goto-body t] + ["Goto Signature" message-goto-signature t])) (defvar message-tool-bar-map nil) @@ -2419,15 +2422,15 @@ (goto-char (point-max)) nil)) -(defun message-gen-unsubscribed-mft (&optional include-cc) +(defun message-generate-unsubscribed-mail-followup-to (&optional include-cc) "Insert a reasonable MFT header in a post to an unsubscribed list. When making original posts to a mailing list you are not subscribed to, you have to type in a MFT header by hand. The contents, usually, are the addresses of the list and your own address. This function inserts such a header automatically. It fetches the contents of the To: header -in the current mail buffer, and appends the current user-mail-address. +in the current mail buffer, and appends the current `user-mail-address'. -If the optional argument `include-cc' is non-nil, the addresses in the +If the optional argument INCLUDE-CC is non-nil, the addresses in the Cc: header are also put into the MFT." (interactive "P") @@ -3372,7 +3375,7 @@ (not (mail-fetch-field "mail-followup-to"))) (setq headers (cons - (cons "Mail-Followup-To" (message-make-mft)) + (cons "Mail-Followup-To" (message-make-mail-followup-to)) message-required-mail-headers)) ;; otherwise, delete the MFT header if the field is empty (when (equal "" (mail-fetch-field "mail-followup-to")) @@ -4488,7 +4491,7 @@ "Send a message to the list only. Remove all addresses but the list address from To and Cc headers." (interactive) - (let ((listaddr (message-make-mft t))) + (let ((listaddr (message-make-mail-followup-to t))) (when listaddr (save-excursion (message-remove-header "to") @@ -4496,10 +4499,10 @@ (message-position-on-field "To" "X-Draft-From") (insert listaddr))))) -(defun message-make-mft (&optional only-show-subscribed) - "Return the Mail-Followup-To header. If passed the optional -argument `only-show-subscribed' only return the subscribed address (and -not the additional To and Cc header contents)." +(defun message-make-mail-followup-to (&optional only-show-subscribed) + "Return the Mail-Followup-To header. +If passed the optional argument ONLY-SHOW-SUBSCRIBED only return the +subscribed address (and not the additional To and Cc header contents)." (let* ((case-fold-search t) (to (message-fetch-field "To")) (cc (message-fetch-field "cc")) --- mml.el.~6.67.~ Fri Jan 3 11:39:02 2003 +++ mml.el Tue Jan 7 17:39:32 2003 @@ -1009,15 +1009,15 @@ (mml-insert-tag 'part 'type type 'disposition "inline") (forward-line -1)) -(defun mml-preview-insert-mft () +(defun mml-preview-insert-mail-followup-to () "Insert a Mail-Followup-To header before previewing an article. Should be adopted if code in `message-send-mail' is changed." (when (and (message-mail-p) (message-subscribed-p) (not (mail-fetch-field "mail-followup-to")) - (message-make-mft)) + (message-make-mail-followup-to)) (message-position-on-field "Mail-Followup-To" "X-Draft-From") - (insert (message-make-mft)))) + (insert (message-make-mail-followup-to)))) (defun mml-preview (&optional raw) "Display current buffer with Gnus, in a new buffer. @@ -1039,8 +1039,8 @@ "*MIME preview of ") (buffer-name)))) (erase-buffer) (insert-buffer buf) - (mml-preview-insert-mft) + (mml-preview-insert-mail-followup-to) (let ((message-deletable-headers (if (message-news-p) nil message-deletable-headers))) --- gnus-art.el.~6.266.~ Mon Jan 6 19:16:07 2003 +++ gnus-art.el Tue Jan 7 17:31:03 2003 @@ -5221,7 +5221,7 @@ "\C-c\C-f\C-k" message-goto-keywords "\C-c\C-f\C-u" message-goto-summary "\C-c\C-f\C-i" message-insert-or-toggle-importance - "\C-c\C-f\C-a" message-gen-unsubscribed-mft + "\C-c\C-f\C-a" message-generate-unsubscribed-mail-followup-to "\C-c\C-b" message-goto-body "\C-c\C-i" message-goto-signature