From: yamaoka Date: Sun, 19 Oct 2003 22:44:24 +0000 (+0000) Subject: Synch to Gnus 200310192051. X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b2f56769ab66b81489a31487b2235665258f503e;p=elisp%2Fgnus.git- Synch to Gnus 200310192051. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 476e748..04a6a81 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2003-10-19 Reiner Steib + + * message.el (message-mode-field-menu): Added + message-generate-unsubscribed-mail-followup-to. + (message-forward-subject-fwd): Avoid double "Fwd: " + (message-change-subject): Added comment. + 2003-10-19 Lars Magne Ingebrigtsen * mml.el (mml-insert-mime): Quote mml. diff --git a/lisp/message.el b/lisp/message.el index f9a41dd..af4e9d9 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1914,6 +1914,10 @@ Leading \"Re: \" is not stripped by this function. Use the function ;;;###autoload (defun message-change-subject (new-subject) "Ask for NEW-SUBJECT header, append (was: )." + ;; + ;; + ;; But not mentioned in... + ;; (interactive (list (read-from-minibuffer "New subject: "))) @@ -1948,7 +1952,7 @@ Leading \"Re: \" is not stripped by this function. Use the function See `message-mark-insert-begin' and `message-mark-insert-end'." (interactive "r") (save-excursion - ; add to the end of the region first, otherwise end would be invalid + ;; add to the end of the region first, otherwise end would be invalid (goto-char end) (insert message-mark-insert-end) (goto-char beg) @@ -2465,6 +2469,9 @@ Point is left at the beginning of the narrowed-to region." ["Mail-Followup-To" message-goto-mail-followup-to t] ["Mail-Reply-To" message-goto-mail-reply-to t] ["Mail-Copies-To" message-goto-mail-copies-to t] + ["Unsubscribed list post" message-generate-unsubscribed-mail-followup-to + ,@(if (featurep 'xemacs) '(t) + '(:help "Insert a reasonable `Mail-Followup-To:' header."))] ["Reduce To: to Cc:" message-reduce-to-to-cc t] "----" ["Sort Headers" message-sort-headers t] @@ -6690,7 +6697,9 @@ news, Source is the list of newsgroups is was posted to." "Generate a SUBJECT for a forwarded message. The form is: Fwd: Subject, where Subject is the original subject of the message." - (concat "Fwd: " subject)) + (if (string-match "^Fwd: " subject) + subject + (concat "Fwd: " subject))) (defun message-make-forward-subject () "Return a Subject header suitable for the message in the current buffer." diff --git a/texi/ChangeLog b/texi/ChangeLog index a9b65a7..77e8f46 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,12 @@ +2003-10-19 Reiner Steib + + * message.texi (Mailing Lists): Add Mail-Followup-To to index. + + * gnus.texi (Group Parameters): Add Mail-Followup-To to index. + (Emacsen): Fixed typo. + (Oort Gnus): Mention message-forward-show-mml change (Sync with + GNUS-NEWS). + 2003-10-12 Adrian Aichner * gnus.texi (Mail Source Specifiers): uref fixes. diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index 98d7ff1..6390b74 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -2780,6 +2780,7 @@ kiboze $B%0%k!<%W$r:n@.$7$^$9!#%W%m%s%W%H$GL>A0$H!"(Bkiboze $B%0%k!<%W$K!V4^$ @anchor{subscribed} @item subscribed @cindex subscribed +@cindex Mail-Followup-To $B$b$7$3$N%Q%i%a!<%?$,(B @code{t} $B$K@_Dj$5$l$F$$$k$H!"(Bgnus $B$O$"$J$?$,$3$N%0(B $B%k!<%W$r(B to-address $B$H(B to-list $B%Q%i%a!<%?$N%"%I%l%9$G9XFI$7$F$$$k%a!<%j(B $B%s%0%j%9%H$G$"$k$H2rpJs$r(B gnus $B$KM?$($k$3$H$O!"$"$J$?$,$=(B @@ -23055,7 +23056,7 @@ RFC 1731 $B$O(B @acronym{IMAP} $B$N(B GSSAPI/Kerberos4 $B$NWFM(B $B$,2sHr$5$l$^$7$?!#$3$N%3%^%s%I$b$^$?!"%a%C%;!<%8%b!<%I$G$OLr$KN)$D$N$G$9!#(B + +@item +@code{message-forward-show-mml} $B$N%G%#%U%)%k%H$,(B @code{best} $B$KJQ$o$j$^(B +$B$7$?!#(B + +$BCM(B @code{best} $B$N?6$kIq$$$O!"$=$l$,$U$5$o$7$$>l9g$O(B MML $B$rI=<($9$k(B ($B$9$J(B +$B$o$A(B MIME $B$r(B MML $B$KJQ49$9$k(B) $B$3$H$G$9!#JQ49$,%G%#%8%?%k=pL>$rL58z$K$7$F(B +$B$7$^$&$N$G!"=pL>$5$l$?!"$^$?$O0E9f2=$5$l$?%a%C%;!<%8$rE>Aw$9$k$H$-(B +$B$O(B MML $B$O;H$o$l$^$;$s!#(B @end itemize @iftex diff --git a/texi/gnus.texi b/texi/gnus.texi index 0d167fb..6ec6a10 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -2767,6 +2767,7 @@ See also @code{gnus-parameter-to-list-alist}. @anchor{subscribed} @item subscribed @cindex subscribed +@cindex Mail-Followup-To If this parameter is set to @code{t}, Gnus will consider the to-address and to-list parameters for this group as addresses of mailing lists you are subscribed to. Giving Gnus this information is @@ -23909,7 +23910,7 @@ know. @cindex Mule @cindex Emacs -Gnus should work on : +Gnus should work on: @itemize @bullet @@ -25574,6 +25575,14 @@ C-m}. This change was made to avoid conflict with the standard binding of @code{back-to-indentation}, which is also useful in message mode. + +@item +The default for message-forward-show-mml changed to symbol @code{best}. + +The behaviour for the @code{best} value is to show MML (i.e., convert MIME +to MML) when appropriate. MML will not be used when forwarding signed +or encrypted messages, as the conversion invalidate the digital +signature. @end itemize @iftex diff --git a/texi/message-ja.texi b/texi/message-ja.texi index b355c1a..f18bf40 100644 --- a/texi/message-ja.texi +++ b/texi/message-ja.texi @@ -376,6 +376,7 @@ non @acronym{MIME}-savvy versions of Gnus would do. @node Mailing Lists @section $B%a!<%j%s%0%j%9%H(B +@cindex Mail-Followup-To $B%a!<%j%s%0%j%9%H$KEj9F$9$k$H$-!"Ej9F$9$k?M$,$=$N5-;v$KBP$9$k%U%)%m!<%"%C(B $B%W5-;v$N08@h$r;XDj$7$?$$$3$H$,$"$j$^$9!#(BMail-Followup-To (MFT) $B$O$^$5$K(B $B$3$l$r2DG=$K$9$k$?$a$K:n$i$l$^$7$?!#$3$l$,Lr$KN)$D>l9g$NNc$rFs$D(B: diff --git a/texi/message.texi b/texi/message.texi index ec41b32..bf6d011 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -353,6 +353,7 @@ will be removed before popping up the buffer. The default is @node Mailing Lists @section Mailing Lists +@cindex Mail-Followup-To Sometimes while posting to mailing lists, the poster needs to direct followups to the post to specific places. The Mail-Followup-To (MFT) was created to enable just this. Two example scenarios where this is