Changes committed gnus/lisp (ChangeLog gnus-sum.el)

Modified: ChangeLog gnus-sum.el

(gnus-summary-make-menu-bar): Add message-cite-function toggle.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1815 gnus/lisp/ChangeLog:7.1816
--- ChangeLog:7.1815	Mon Mar 24 19:24:54 2008
+++ ChangeLog	Mon Mar 24 19:50:18 2008
@@ -1,5 +1,8 @@
 2008-03-24  Reiner Steib  <[email protected]>
 
+	* gnus-sum.el (gnus-summary-make-menu-bar): Add message-cite-function
+	toggle.
+
 	* message.el (message-check-news-body-syntax): Fix signature check.
 	(message-setup-1): Mark buffer as unmodified _after_ running
 	message-setup-hook and handling message-alternative-emails.
Index: gnus-sum.el
diff -u gnus/lisp/gnus-sum.el:7.217 gnus/lisp/gnus-sum.el:7.218
--- gnus-sum.el:7.217	Fri Mar  7 07:24:30 2008
+++ gnus-sum.el	Mon Mar 24 19:50:18 2008
@@ -2549,6 +2549,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])