Mercurial > emacs

diff lisp/gnus/gnus-sum.el @ 93386:a789a1138b08

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--devo--0 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1104
author Miles Bader <miles@gnu.org>
date Sat, 29 Mar 2008 19:54:11 +0000
parents d3767aa9ae49
children 7c273495693a
line wrap: on
line diff
--- a/lisp/gnus/gnus-sum.el	Sat Mar 29 15:28:57 2008 +0000
+++ b/lisp/gnus/gnus-sum.el	Sat Mar 29 19:54:11 2008 +0000
@@ -2543,6 +2543,29 @@
 	["Followup via news" gnus-summary-followup-to-mail t]
 	["Followup via news and yank"
 	 gnus-summary-followup-to-mail-with-original t]
+	["Strip signature on reply"
+	 (lambda ()
+	   (interactive)
+	   (if (not (memq message-cite-function
+			  '(message-cite-original-without-signature
+			    message-cite-original)))
+	       ;; Stupid workaround for XEmacs not honoring :visible.
+	       (message "Can't toggle this value of `message-cite-function'")
+	     (setq message-cite-function
+		   (if (eq message-cite-function
+			   'message-cite-original-without-signature)
+		       'message-cite-original
+		     'message-cite-original-without-signature))))
+	 ;; XEmacs barfs on :visible.
+	 ,@(if (featurep 'xemacs) nil
+	     '(:visible (memq message-cite-function
+			      '(message-cite-original-without-signature
+				message-cite-original))))
+	 :style toggle
+	 :selected (eq message-cite-function
+		       'message-cite-original-without-signature)
+	 ,@(if (featurep 'xemacs) nil
+	     '(:help "Strip signature from cited article when replying."))]
 	;;("Draft"
 	;;["Send" gnus-summary-send-draft t]
 	;;["Send bounced" gnus-resend-bounced-mail t])