comparison lisp/gnus/gnus-sum.el @ 80525:1e3a4955a638

Merge from gnus--rel--5.10 Revision: [e-mail]/emacs--rel--22--patch-257

80524:5b7bb12a8a8f

	  ["Set score" gnus-summary-set-score t]
	  ["Switch current score file..." gnus-score-change-score-file t]
	  ["Set mark below..." gnus-score-set-mark-below t]
	  ["Set expunge below..." gnus-score-set-expunge-below t]
	  ["Edit current score file" gnus-score-edit-current-scores t]
	  ["Edit score file" gnus-score-edit-file t]
	  ["Trace score" gnus-score-find-trace t]
	  ["Find words" gnus-score-find-favourite-words t]
	  ["Rescore buffer" gnus-summary-rescore t]
	  ["Increase score..." gnus-summary-increase-score t]
	  ["Lower score..." gnus-summary-lower-score t]))))

	 ,@(if (featurep 'xemacs) '(t)
	     '(:help "Post a uuencoded article"))]
	["Followup via news" gnus-summary-followup-to-mail t]
	["Followup via news and yank"
	 gnus-summary-followup-to-mail-with-original t]
	;;("Draft"
	;;["Send" gnus-summary-send-draft t]
	;;["Send bounced" gnus-resend-bounced-mail t])
	))

      (gnus-summary-goto-subject article t)))
  (gnus-summary-limit (append articles gnus-newsgroup-limit))
  (gnus-summary-position-point))

(defun gnus-summary-goto-subject (article &optional force silent)
  "Go the subject line of ARTICLE.
If FORCE, also allow jumping to articles not currently shown."
  (interactive "nArticle number: ")
  (unless (numberp article)
    (error "Article %s is not a number" article))
  (let ((b (point))

80525:1e3a4955a638

	  ["Set score" gnus-summary-set-score t]
	  ["Switch current score file..." gnus-score-change-score-file t]
	  ["Set mark below..." gnus-score-set-mark-below t]
	  ["Set expunge below..." gnus-score-set-expunge-below t]
	  ["Edit current score file" gnus-score-edit-current-scores t]
	  ["Edit score file..." gnus-score-edit-file t]
	  ["Trace score" gnus-score-find-trace t]
	  ["Find words" gnus-score-find-favourite-words t]
	  ["Rescore buffer" gnus-summary-rescore t]
	  ["Increase score..." gnus-summary-increase-score t]
	  ["Lower score..." gnus-summary-lower-score t]))))

	 ,@(if (featurep 'xemacs) '(t)
	     '(:help "Post a uuencoded article"))]
	["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])
	))

      (gnus-summary-goto-subject article t)))
  (gnus-summary-limit (append articles gnus-newsgroup-limit))
  (gnus-summary-position-point))

(defun gnus-summary-goto-subject (article &optional force silent)
  "Go to the subject line of ARTICLE.
If FORCE, also allow jumping to articles not currently shown."
  (interactive "nArticle number: ")
  (unless (numberp article)
    (error "Article %s is not a number" article))
  (let ((b (point))