emacs: lisp/gnus/gnus.el comparison

comparison lisp/gnus/gnus.el @ 91085:880960b70474

Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-283

author	Miles Bader <miles@gnu.org>
date	Sun, 11 Nov 2007 00:56:44 +0000
parents	4bc33ffdda1a ff86fe6b4194
children	53108e6cea98

comparison

equal deleted inserted replaced

-:a4347a111894
+:880960b70474
 (defgroup gnus-fun nil
 "Frivolous Gnus extensions."
 :link '(custom-manual "(gnus)Exiting Gnus")
 :group 'gnus)
-(defconst gnus-version-number "5.11"
+(defconst gnus-version-number "5.13"
 "Version number for this version of Gnus.")
 (defconst gnus-version (format "Gnus v%s" gnus-version-number)
 "Version string for this version of Gnus.")
 :group 'gnus-start
 :type 'boolean)
 (unless (fboundp 'gnus-group-remove-excess-properties)
 (defalias 'gnus-group-remove-excess-properties 'ignore))
-(unless (fboundp 'gnus-set-text-properties)
-(defalias 'gnus-set-text-properties 'set-text-properties))
 (unless (featurep 'gnus-xmas)
 (defalias 'gnus-make-overlay 'make-overlay)
 (defalias 'gnus-delete-overlay 'delete-overlay)
 (defalias 'gnus-overlay-put 'overlay-put)
 (defalias 'gnus-overlay-buffer 'overlay-buffer)
 (defalias 'gnus-overlay-start 'overlay-start)
 (defalias 'gnus-overlay-end 'overlay-end)
 (defalias 'gnus-extent-detached-p 'ignore)
 (defalias 'gnus-extent-start-open 'ignore)
-(defalias 'gnus-appt-select-lowest-window 'appt-select-lowest-window)
 (defalias 'gnus-mail-strip-quoted-names 'mail-strip-quoted-names)
 (defalias 'gnus-character-to-event 'identity)
 (defalias 'gnus-assq-delete-all 'assq-delete-all)
 (defalias 'gnus-add-text-properties 'add-text-properties)
 (defalias 'gnus-put-text-property 'put-text-property)
 (put 'gnus-group-news-low-empty-face 'face-alias 'gnus-group-news-low-empty)
 (defface gnus-group-mail-1
 '((((class color)
 (background dark))
-(:foreground "aquamarine1" :bold t))
+(:foreground "#e1ffe1" :bold t))
 (((class color)
 (background light))
 (:foreground "DeepPink3" :bold t))
 (t
 (:bold t)))
 (put 'gnus-group-mail-1-face 'face-alias 'gnus-group-mail-1)
 (defface gnus-group-mail-1-empty
 '((((class color)
 (background dark))
-(:foreground "aquamarine1"))
+(:foreground "#e1ffe1"))
 (((class color)
 (background light))
 (:foreground "DeepPink3"))
 (t
 (:italic t :bold t)))
 (put 'gnus-group-mail-1-empty-face 'face-alias 'gnus-group-mail-1-empty)
 (defface gnus-group-mail-2
 '((((class color)
 (background dark))
-(:foreground "aquamarine2" :bold t))
+(:foreground "DarkSeaGreen1" :bold t))
 (((class color)
 (background light))
 (:foreground "HotPink3" :bold t))
 (t
 (:bold t)))
 (put 'gnus-group-mail-2-face 'face-alias 'gnus-group-mail-2)
 (defface gnus-group-mail-2-empty
 '((((class color)
 (background dark))
-(:foreground "aquamarine2"))
+(:foreground "DarkSeaGreen1"))
 (((class color)
 (background light))
 (:foreground "HotPink3"))
 (t
 (:bold t)))
 (put 'gnus-group-mail-2-empty-face 'face-alias 'gnus-group-mail-2-empty)
 (defface gnus-group-mail-3
 '((((class color)
 (background dark))
-(:foreground "aquamarine3" :bold t))
+(:foreground "aquamarine1" :bold t))
 (((class color)
 (background light))
 (:foreground "magenta4" :bold t))
 (t
 (:bold t)))
 (put 'gnus-group-mail-3-face 'face-alias 'gnus-group-mail-3)
 (defface gnus-group-mail-3-empty
 '((((class color)
 (background dark))
-(:foreground "aquamarine3"))
+(:foreground "aquamarine1"))
 (((class color)
 (background light))
 (:foreground "magenta4"))
 (t
 ()))
 (put 'gnus-group-mail-3-empty-face 'face-alias 'gnus-group-mail-3-empty)
 (defface gnus-group-mail-low
 '((((class color)
 (background dark))
-(:foreground "aquamarine4" :bold t))
+(:foreground "aquamarine2" :bold t))
 (((class color)
 (background light))
 (:foreground "DeepPink4" :bold t))
 (t
 (:bold t)))
 (put 'gnus-group-mail-low-face 'face-alias 'gnus-group-mail-low)
 (defface gnus-group-mail-low-empty
 '((((class color)
 (background dark))
-(:foreground "aquamarine4"))
+(:foreground "aquamarine2"))
 (((class color)
 (background light))
 (:foreground "DeepPink4"))
 (t
 (:bold t)))
 (autoload 'gnus-play-jingle "gnus-audio"))
 (defface gnus-splash
 '((((class color)
 (background dark))
-(:foreground "#888888"))
+(:foreground "#cccccc"))
 (((class color)
 (background light))
 (:foreground "#888888"))
 (t
 ()))
 (dino "#724214" "#1e3f03")
 (oort "#cccccc" "#888888")
 (storm "#666699" "#99ccff")
 (pdino "#9999cc" "#99ccff")
 (purp "#9999cc" "#666699")
-(no "#000000" "#ff0000")
+(no "#ff0000" "#ffff00")
 (neutral "#b4b4b4" "#878787")
 (september "#bf9900" "#ffcc00"))
 "Color alist used for the Gnus logo.")
-(defcustom gnus-logo-color-style 'oort
+(defcustom gnus-logo-color-style 'no
 "*Color styles used for the Gnus logo."
 :type `(choice ,@(mapcar (lambda (elem) (list 'const (car elem)))
 			   gnus-logo-color-alist))
 :group 'gnus-xmas)
 	 (setq gnus-simple-splash nil)
 	 t))))
 (t
 (insert
 (format "              %s
-_    ___ _             _
+	  _    ___ _             _
-_ ___ __ ___  __    _ ___
+	  _ ___ __ ___  __    _ ___
-__   _     ___    __  ___
+	  __   _     ___    __  ___
-_           ___     _
+	      _           ___     _
-_  _ __             _
+	     _  _ __             _
-___   __            _
+	     ___   __            _
-__           _
+		   __           _
-_      _   _
+		    _      _   _
-_      _    _
+		   _      _    _
-_  _    _
+		      _  _    _
-__  ___
+		  __  ___
-_   _ _     _
+		 _   _ _     _
-_   _
+		_   _
-_    _
+	      _    _
-_    _
+	     _    _
-_
+	    _
-__
+	  __
 "
 	     ""))
 ;; And then hack it.
 (gnus-indent-rigidly (point-min) (point-max)
 :initialize 'custom-initialize-default
 :type 'gnus-select-method)
 (defcustom gnus-message-archive-method "archive"
 "*Method used for archiving messages you've sent.
-This should be a mail method."
+This should be a mail method.
+See also `gnus-update-message-archive-method'."
 :group 'gnus-server
 :group 'gnus-message
 :type '(choice (const :tag "Default archive method" "archive")
 		 gnus-select-method))
+(defcustom gnus-update-message-archive-method nil
+"Non-nil means always update the saved \"archive\" method.
+The archive method is initially set according to the value of
+`gnus-message-archive-method' and is saved in the \"~/.newsrc.eld\" file
+so that it may be used as a real method of the server which is named
+\"archive\" ever since.  If it once has been saved, it will never be
+updated if the value of this variable is nil, even if you change the
+value of `gnus-message-archive-method' afterward.  If you want the
+saved \"archive\" method to be updated whenever you change the value of
+`gnus-message-archive-method', set this variable to a non-nil value."
+:version "23.0" ;; No Gnus
+:group 'gnus-server
+:group 'gnus-message
+:type 'boolean)
 (defcustom gnus-message-archive-group nil
 "*Name of the group in which to save the messages you've written.
 This can either be a string; a list of strings; or an alist
 of regexps/functions/forms to be evaluated to return a string (or a list
 "*An alist of (HIERARCHY . FORM) pairs used to construct the URL of a charter.
 When FORM is evaluated `name' is bound to the name of the group."
 :version "22.1"
 :group 'gnus-group-various
 :type '(repeat (cons (string :tag "Hierarchy") (sexp :tag "Form"))))
+(put 'gnus-group-charter-alist 'risky-local-variable t)
 (defcustom gnus-group-fetch-control-use-browse-url nil
 "*Non-nil means that control messages are displayed using `browse-url'.
 Otherwise they are fetched with ange-ftp and displayed in an ephemeral
 group."
 		 (const :tag "passive" passive)
 		 (const :tag "active" t)))
 (defcustom gnus-use-trees nil
 "*If non-nil, display a thread tree buffer."
-:group 'gnus-meta
-:type 'boolean)
-(defcustom gnus-use-grouplens nil
-"*If non-nil, use GroupLens ratings."
 :group 'gnus-meta
 :type 'boolean)
 (defcustom gnus-keep-backlog 20
 "*If non-nil, Gnus will keep read articles for later re-retrieval.
 "The spam classification (spam, ham, or neither) of this group.
 When a spam group is entered, all unread articles are marked as
 spam.  There is other behavior associated with ham and no
 classification when spam.el is loaded - see the manual.")
+(gnus-define-group-parameter
+spam-resend-to
+:type list
+:function-document
+"The address to get spam resent (through spam-report-resend)."
+:variable gnus-spam-resend-to
+:variable-default nil
+:variable-document
+"The address to get spam resent (through spam-report-resend)."
+:variable-group spam
+:variable-type '(repeat
+		    (list :tag "Group address for resending spam"
+			  (regexp :tag "Group")
+			  (string :tag "E-mail address for resending spam (requires the spam-use-resend exit processor)")))
+:parameter-type 'string :tag "E-mail address for resending spam (requires the spam-use-resend exit processor)"
+:parameter-document
+"The address to get spam resent (through spam-report-resend).")
+(gnus-define-group-parameter
+ham-resend-to
+:type list
+:function-document
+"The address to get ham resent (through spam-report-resend)."
+:variable gnus-ham-resend-to
+:variable-default nil
+:variable-document
+"The address to get ham resent (through spam-report-resend)."
+:variable-group spam
+:variable-type '(repeat
+		    (list :tag "Group address for resending ham"
+			  (regexp :tag "Group")
+			  (string :tag "E-mail address for resending ham (requires the spam-use-resend exit processor)")))
+:parameter-type 'string :tag "E-mail address for resending ham (requires the spam-use-resend exit processor)"
+:parameter-document
+"The address to get ham resent (through spam-report-resend).")
 (defvar gnus-group-spam-exit-processor-ifile "ifile"
 "OBSOLETE: The ifile summary exit spam processor.")
 (defvar gnus-group-spam-exit-processor-stat "stat"
 "OBSOLETE: The spam-stat summary exit spam processor.")
 '(choice
 :tag "Spam Summary Exit Processor"
 :value nil
 (list :tag "Spam Summary Exit Processor Choices"
 	   (set
+	    (const :tag "Spam: Bogofilter"    (spam spam-use-bogofilter))
+	    (const :tag "Spam: Blacklist"     (spam spam-use-blacklist))
+	    (const :tag "Spam: Bsfilter"      (spam spam-use-bsfilter))
+	    (const :tag "Spam: Gmane Report"  (spam spam-use-gmane))
+	    (const :tag "Spam: Resend Message"(spam spam-use-resend))
+	    (const :tag "Spam: ifile"	      (spam spam-use-ifile))
+	    (const :tag "Spam: Spam Oracle"   (spam spam-use-spamoracle))
+	    (const :tag "Spam: Spam-stat"     (spam spam-use-stat))
+	    (const :tag "Spam: SpamAssassin"  (spam spam-use-spamassassin))
+	    (const :tag "Spam: CRM114"        (spam spam-use-crm114))
+	    (const :tag "Ham: BBDB"	      (ham spam-use-BBDB))
+	    (const :tag "Ham: Bogofilter"     (ham spam-use-bogofilter))
+	    (const :tag "Ham: Bsfilter"       (ham spam-use-bsfilter))
+	    (const :tag "Ham: Copy"	      (ham spam-use-ham-copy))
+	    (const :tag "Ham: Resend Message" (ham spam-use-resend))
+	    (const :tag "Ham: ifile"	      (ham spam-use-ifile))
+	    (const :tag "Ham: Spam Oracle"    (ham spam-use-spamoracle))
+	    (const :tag "Ham: Spam-stat"      (ham spam-use-stat))
+	    (const :tag "Ham: SpamAssassin"   (ham spam-use-spamassassin))
+	    (const :tag "Ham: CRM114"         (ham spam-use-crm114))
+	    (const :tag "Ham: Whitelist"      (ham spam-use-whitelist))
 	    (variable-item gnus-group-spam-exit-processor-ifile)
 	    (variable-item gnus-group-spam-exit-processor-stat)
 	    (variable-item gnus-group-spam-exit-processor-bogofilter)
 	    (variable-item gnus-group-spam-exit-processor-blacklist)
 	    (variable-item gnus-group-spam-exit-processor-spamoracle)
 	    (variable-item gnus-group-ham-exit-processor-ifile)
 	    (variable-item gnus-group-ham-exit-processor-stat)
 	    (variable-item gnus-group-ham-exit-processor-whitelist)
 	    (variable-item gnus-group-ham-exit-processor-BBDB)
 	    (variable-item gnus-group-ham-exit-processor-spamoracle)
-	    (variable-item gnus-group-ham-exit-processor-copy)
+	    (variable-item gnus-group-ham-exit-processor-copy))))
-	    (const :tag "Spam: Gmane Report"  (spam spam-use-gmane))
-	    (const :tag "Spam: Bogofilter"    (spam spam-use-bogofilter))
-	    (const :tag "Spam: Blacklist"     (spam spam-use-blacklist))
-	    (const :tag "Spam: ifile"         (spam spam-use-ifile))
-	    (const :tag "Spam: Spam-stat"     (spam spam-use-stat))
-	    (const :tag "Spam: Spam Oracle"   (spam spam-use-spamoracle))
-	    (const :tag "Ham: ifile"          (ham spam-use-ifile))
-	    (const :tag "Ham: Bogofilter"     (ham spam-use-bogofilter))
-	    (const :tag "Ham: Spam-stat"      (ham spam-use-stat))
-	    (const :tag "Ham: Whitelist"      (ham spam-use-whitelist))
-	    (const :tag "Ham: BBDB"           (ham spam-use-BBDB))
-	    (const :tag "Ham: Copy"           (ham spam-use-ham-copy))
-	    (const :tag "Ham: Spam Oracle"    (ham spam-use-spamoracle)))))
 :function-document
 "Which spam or ham processors will be applied when the summary is exited."
 :variable gnus-spam-process-newsgroups
 :variable-default nil
 :variable-document
 '(repeat :tag "Spam/Ham Processors"
 	    (list :tag "Spam Summary Exit Processor Choices"
 		  (regexp :tag "Group Regexp")
 		  (set
 		   :tag "Spam/Ham Summary Exit Processor"
+		   (const :tag "Spam: Bogofilter"    (spam spam-use-bogofilter))
+		   (const :tag "Spam: Blacklist"     (spam spam-use-blacklist))
+		   (const :tag "Spam: Bsfilter"	     (spam spam-use-bsfilter))
+		   (const :tag "Spam: Gmane Report"  (spam spam-use-gmane))
+		   (const :tag "Spam: Resend Message"(spam spam-use-resend))
+		   (const :tag "Spam: ifile"	     (spam spam-use-ifile))
+		   (const :tag "Spam: Spam-stat"     (spam spam-use-stat))
+		   (const :tag "Spam: Spam Oracle"   (spam spam-use-spamoracle))
+		   (const :tag "Spam: SpamAssassin"  (spam spam-use-spamassassin))
+		   (const :tag "Spam: CRM114"        (spam spam-use-crm114))
+		   (const :tag "Ham: BBDB"	     (ham spam-use-BBDB))
+		   (const :tag "Ham: Bogofilter"     (ham spam-use-bogofilter))
+		   (const :tag "Ham: Bsfilter"	     (ham spam-use-bsfilter))
+		   (const :tag "Ham: Copy"	     (ham spam-use-ham-copy))
+		   (const :tag "Ham: Resend Message" (ham spam-use-resend))
+		   (const :tag "Ham: ifile"	     (ham spam-use-ifile))
+		   (const :tag "Ham: Spam-stat"	     (ham spam-use-stat))
+		   (const :tag "Ham: Spam Oracle"    (ham spam-use-spamoracle))
+		   (const :tag "Ham: SpamAssassin"   (ham spam-use-spamassassin))
+		   (const :tag "Ham: CRM114"         (ham spam-use-crm114))
+		   (const :tag "Ham: Whitelist"	     (ham spam-use-whitelist))
 		   (variable-item gnus-group-spam-exit-processor-ifile)
 		   (variable-item gnus-group-spam-exit-processor-stat)
 		   (variable-item gnus-group-spam-exit-processor-bogofilter)
 		   (variable-item gnus-group-spam-exit-processor-blacklist)
 		   (variable-item gnus-group-spam-exit-processor-spamoracle)
 		   (variable-item gnus-group-ham-exit-processor-ifile)
 		   (variable-item gnus-group-ham-exit-processor-stat)
 		   (variable-item gnus-group-ham-exit-processor-whitelist)
 		   (variable-item gnus-group-ham-exit-processor-BBDB)
 		   (variable-item gnus-group-ham-exit-processor-spamoracle)
-		   (variable-item gnus-group-ham-exit-processor-copy)
+		   (variable-item gnus-group-ham-exit-processor-copy))))
-		   (const :tag "Spam: Gmane Report"  (spam spam-use-gmane))
-		   (const :tag "Spam: Bogofilter"    (spam spam-use-bogofilter))
-		   (const :tag "Spam: Blacklist"     (spam spam-use-blacklist))
-		   (const :tag "Spam: ifile"         (spam spam-use-ifile))
-		   (const :tag "Spam: Spam-stat"     (spam spam-use-stat))
-		   (const :tag "Spam: Spam Oracle"   (spam spam-use-spamoracle))
-		   (const :tag "Ham: ifile"          (ham spam-use-ifile))
-		   (const :tag "Ham: Bogofilter"     (ham spam-use-bogofilter))
-		   (const :tag "Ham: Spam-stat"      (ham spam-use-stat))
-		   (const :tag "Ham: Whitelist"      (ham spam-use-whitelist))
-		   (const :tag "Ham: BBDB"           (ham spam-use-BBDB))
-		   (const :tag "Ham: Copy"           (ham spam-use-ham-copy))
-		   (const :tag "Ham: Spam Oracle"    (ham spam-use-spamoracle)))))
 :parameter-document
 "Which spam or ham processors will be applied when the summary is exited.")
 (gnus-define-group-parameter
 '(choice :tag "Spam autodetection-specific methods"
 (const none)
 (const default)
 (set :tag "Use specific methods"
 	  (variable-item spam-use-blacklist)
+	  (variable-item spam-use-gmane-xref)
 	  (variable-item spam-use-regex-headers)
 	  (variable-item spam-use-regex-body)
 	  (variable-item spam-use-whitelist)
 	  (variable-item spam-use-BBDB)
 	  (variable-item spam-use-ifile)
 	  (variable-item spam-use-spamoracle)
+	  (variable-item spam-use-crm114)
+	  (variable-item spam-use-spamassassin)
+	  (variable-item spam-use-spamassassin-headers)
+	  (variable-item spam-use-bsfilter)
+	  (variable-item spam-use-bsfilter-headers)
 	  (variable-item spam-use-stat)
 	  (variable-item spam-use-blackholes)
 	  (variable-item spam-use-hashcash)
 	  (variable-item spam-use-bogofilter-headers)
 	  (variable-item spam-use-bogofilter)))
 (choice
 (const none)
 (const default)
 (set :tag "Use specific methods"
 	(variable-item spam-use-blacklist)
+	(variable-item spam-use-gmane-xref)
 	(variable-item spam-use-regex-headers)
 	(variable-item spam-use-regex-body)
 	(variable-item spam-use-whitelist)
 	(variable-item spam-use-BBDB)
 	(variable-item spam-use-ifile)
 	(variable-item spam-use-spamoracle)
+	(variable-item spam-use-crm114)
 	(variable-item spam-use-stat)
 	(variable-item spam-use-blackholes)
 	(variable-item spam-use-hashcash)
+	(variable-item spam-use-spamassassin)
+	(variable-item spam-use-spamassassin-headers)
+	(variable-item spam-use-bsfilter)
+	(variable-item spam-use-bsfilter-headers)
 	(variable-item spam-use-bogofilter-headers)
 	(variable-item spam-use-bogofilter)))))
 :parameter-document
 "Spam autodetection methods.
 Requires the spam-autodetect parameter.  Only unseen articles
 '(summary-highlight group-highlight article-highlight
 		      mouse-face
 		      summary-menu group-menu article-menu
 		      tree-highlight menu highlight
 		      browse-menu server-menu
-		      page-marker tree-menu binary-menu pick-menu
+		      page-marker tree-menu binary-menu pick-menu)
-		      grouplens-menu)
 "*Enable visual features.
 If `visual' is disabled, there will be no menus and few faces.  Most of
 the visual customization options below will be ignored.  Gnus will use
 less space and be faster as a result.
 (setq gnus-visual '(menu))
 Valid elements include `summary-highlight', `group-highlight',
 `article-highlight', `mouse-face', `summary-menu', `group-menu',
 `article-menu', `tree-highlight', `menu', `highlight', `browse-menu',
-`server-menu', `page-marker', `tree-menu', `binary-menu', `pick-menu',
+`server-menu', `page-marker', `tree-menu', `binary-menu', and`pick-menu'."
-and `grouplens-menu'."
 :group 'gnus-meta
 :group 'gnus-visual
 :type '(set (const summary-highlight)
 	      (const group-highlight)
 	      (const article-highlight)
 	      (const browse-menu)
 	      (const server-menu)
 	      (const page-marker)
 	      (const tree-menu)
 	      (const binary-menu)
-	      (const pick-menu)
+	      (const pick-menu)))
-	      (const grouplens-menu)))
 ;; Byte-compiler warning.
 (defvar gnus-visual)
 ;; Find out whether the gnus-visual TYPE is wanted.
 (defun gnus-visual-p (&optional type class)
 				    (const type   :tag "system type")
 				    (const config :tag "system configuration"))
 			    (const codename :tag "Emacs codename")))
 		 (string)))
-;; Convert old (No Gnus < 2005-01-10, v5-10 < 2005-09-05) symbol type values:
+;; Convert old (< 2005-01-10) symbol type values:
 (when (symbolp gnus-user-agent)
 (setq gnus-user-agent
 	(cond ((eq gnus-user-agent 'emacs-gnus-config)
 	       '(emacs gnus config))
 	      ((eq gnus-user-agent 'emacs-gnus-type)
 \(which doesn't make sense in a standalone back end).")
 (defvar gnus-headers-retrieved-by nil)
 (defvar gnus-article-reply nil)
 (defvar gnus-override-method nil)
-(defvar gnus-article-check-size nil)
 (defvar gnus-opened-servers nil)
 (defvar gnus-current-kill-article nil)
 (defvar gnus-have-read-active-file nil)
 ;; Define some autoload functions Gnus might use.
 (eval-and-compile
 ;; This little mapcar goes through the list below and marks the
 ;; symbols in question as autoloaded functions.
-(mapcar
+(mapc
 (lambda (package)
 (let ((interactive (nth 1 (memq ':interactive package))))
 (mapcar
 	(lambda (function)
 	  (let (keymap)
 gnus-uu-decode-unshar-and-save gnus-uu-decode-save
 gnus-uu-decode-binhex gnus-uu-decode-uu-view
 gnus-uu-decode-uu-and-save-view gnus-uu-decode-unshar-view
 gnus-uu-decode-unshar-and-save-view gnus-uu-decode-save-view
 gnus-uu-decode-binhex-view gnus-uu-unmark-thread
-gnus-uu-mark-over gnus-uu-post-news)
+gnus-uu-mark-over gnus-uu-post-news gnus-uu-invert-processable)
 ("gnus-uu" gnus-uu-delete-work-dir gnus-uu-unmark-thread)
 ("gnus-msg" (gnus-summary-send-map keymap)
 gnus-article-mail gnus-copy-article-buffer gnus-extended-version)
 ("gnus-msg" :interactive t
 gnus-group-post-news gnus-group-mail gnus-group-news
 gnus-summary-followup-to-mail-with-original gnus-bug
 gnus-summary-wide-reply-with-original
 gnus-summary-post-forward gnus-summary-wide-reply-with-original
 gnus-summary-post-forward)
 ("gnus-picon" :interactive t gnus-treat-from-picon)
-("gnus-gl" bbb-login bbb-logout bbb-grouplens-group-p
-gnus-grouplens-mode)
 ("smiley" :interactive t smiley-region)
 ("gnus-win" gnus-configure-windows gnus-add-configuration)
 ("gnus-sum" gnus-summary-insert-line gnus-summary-read-group
 gnus-list-of-unread-articles gnus-list-of-read-articles
 gnus-offer-save-summaries gnus-make-thread-indent-array
 gnus-article-wash-html
 gnus-article-unsplit-urls
 gnus-article-hide-pem gnus-article-hide-signature
 gnus-article-strip-leading-blank-lines gnus-article-date-local
 gnus-article-date-original gnus-article-date-lapsed
-;;      gnus-article-show-all-headers
+;;gnus-article-show-all-headers
 gnus-article-edit-mode gnus-article-edit-article
 gnus-article-edit-done gnus-article-decode-encoded-words
 gnus-start-date-timer gnus-stop-date-timer
 gnus-mime-view-all-parts)
 ("gnus-int" gnus-request-type)
 ("gnus-start" gnus-newsrc-parse-options gnus-1 gnus-no-server-1
-gnus-dribble-enter gnus-read-init-file gnus-dribble-touch)
+gnus-dribble-enter gnus-read-init-file gnus-dribble-touch
+gnus-check-reasonable-setup)
 ("gnus-dup" gnus-dup-suppress-articles gnus-dup-unsuppress-article
 gnus-dup-enter-articles)
 ("gnus-range" gnus-copy-sequence)
 ("gnus-eform" gnus-edit-form)
 ("gnus-move" :interactive t
 %<   Spaces of length (- 20 thread-level) (string)
 %i   Article score (number)
 %z   Article zcore (character)
 %t   Number of articles under the current thread (number).
 %e   Whether the thread is empty or not (character).
-%l   GroupLens score (string).
 %V   Total thread score (number).
 %P   The line number (number).
 %O   Download mark (character).
 %*   If present, indicates desired cursor position
 (instead of after first colon).
 "Run FUNCTION whenever one of SYMBOLS is shut down."
 (push (cons function symbols) gnus-shutdown-alist))
 (defun gnus-shutdown (symbol)
 "Shut down everything that waits for SYMBOL."
-(let ((alist gnus-shutdown-alist)
+(dolist (entry gnus-shutdown-alist)
-	entry)
+(when (memq symbol (cdr entry))
-(while (setq entry (pop alist))
+(funcall (car entry)))))
-(when (memq symbol (cdr entry))
-	(funcall (car entry))))))
 ;;;
 ;;; Gnus Utility Functions
 ;;;
 ;; Generate a unique new group name.
 (defun gnus-generate-new-group-name (leaf)
 (let ((name leaf)
 	(num 0))
-(while (gnus-gethash name gnus-newsrc-hashtb)
+(while (gnus-group-entry name)
 (setq name (concat leaf "<" (int-to-string (setq num (1+ num))) ">")))
 name))
 (defun gnus-ephemeral-group-p (group)
 "Say whether GROUP is ephemeral or not."
 (catch 'server-name
 (setq method (or method gnus-select-method))
 ;; Perhaps it is already in the cache.
 (mapc (lambda (name-method)
-(if (equal (cdr name-method) method)
+	    (if (equal (cdr name-method) method)
-(throw 'server-name (car name-method))))
+		(throw 'server-name (car name-method))))
-gnus-server-method-cache)
+	  gnus-server-method-cache)
 (mapc
 (lambda (server-alist)
 (mapc (lambda (name-method)
-(when (gnus-methods-equal-p (cdr name-method) method)
+	       (when (gnus-methods-equal-p (cdr name-method) method)
-(unless (member name-method gnus-server-method-cache)
+		 (unless (member name-method gnus-server-method-cache)
-(push name-method gnus-server-method-cache))
+		   (push name-method gnus-server-method-cache))
-(throw 'server-name (car name-method))))
+		 (throw 'server-name (car name-method))))
-server-alist))
+	     server-alist))
-(let ((alists (list gnus-server-alist
+(list gnus-server-alist
-gnus-predefined-server-alist)))
+	   gnus-predefined-server-alist))
-(if gnus-select-method
-(push (list (cons "native" gnus-select-method)) alists))
-alists))
 (let* ((name (if (member (cadr method) '(nil ""))
-(format "%s" (car method))
+		     (format "%s" (car method))
-(format "%s:%s" (car method) (cadr method))))
+		   (format "%s:%s" (car method) (cadr method))))
-(name-method (cons name method)))
+	   (name-method (cons name method)))
 (unless (member name-method gnus-server-method-cache)
-(push name-method gnus-server-method-cache))
+	(push name-method gnus-server-method-cache))
 name)))
 (defsubst gnus-server-to-method (server)
 "Map virtual server names to select methods."
 (or (and server (listp server) server)
 	 (simple-results
 	  (gnus-group-parameter-value params symbol allow-list t)))
 (if simple-results
 	;; Found results; return them.
 	(car simple-results)
-;; We didn't found it there, try `gnus-parameters'.
+;; We didn't find it there, try `gnus-parameters'.
 (let ((result nil)
 	    (head nil)
 	    (tail gnus-parameters))
 	;; A good old-fashioned non-cl loop.
 	(while tail
 "Find the select method that GROUP uses."
 (or gnus-override-method
 (and (not group)
 	   gnus-select-method)
 (and (not (gnus-group-entry group))
 	   ;; Killed or otherwise unknown group.
 	   (or
 	    ;; If we know a virtual server by that name, return its method.
 	    (gnus-server-to-method (gnus-group-server group))
 	    ;; Guess a new method as last resort.
 	    (gnus-group-name-to-method group)))
 (let ((info (or info (gnus-get-info group)))
 	    method)
 	(if (or (not info)
 		(not (setq method (gnus-info-method info)))
 		(equal method "native"))
 (defun gnus-agent-method-p (method)
 "Say whether METHOD is covered by the agent."
 (or (eq (car gnus-agent-method-p-cache) method)
 (setq gnus-agent-method-p-cache
-(cons method
+	    (cons method
-(member (if (stringp method)
+		  (member (if (stringp method)
-method
+			      method
-(gnus-method-to-server method)) gnus-agent-covered-methods))))
+			    (gnus-method-to-server method)) gnus-agent-covered-methods))))
 (cdr gnus-agent-method-p-cache))
 (defun gnus-online (method)
 (not
 (if gnus-plugged

Mercurial > emacs

comparison lisp/gnus/gnus.el @ 91085:880960b70474