:link '(custom-manual "(gnus)Exiting Gnus")
:group 'gnus)
-(defconst gnus-version-number "0.98.1"
+(defconst gnus-version-number "0.99"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number)
in the documentation of `gnus-select-method'."
:group 'gnus-server
:type '(choice (const :tag "default" nil)
+ (const :tag "DejaNews" (nnweb "refer" (nnweb-type dejanews)))
gnus-select-method))
(defcustom gnus-group-faq-directory
("nnfolder" mail respool address)
("nngateway" post-mail address prompt-address physical-address)
("nnweb" none)
+ ("nnslashdot" none)
+ ("nnultimate" none)
+ ("nnwarchive" none)
("nnlistserv" none)
("nnagent" post-mail)
("nnimap" post-mail address prompt-address physical-address))
(define-widget 'gnus-select-method 'list
"Widget for entering a select method."
+ :value '(nntp "")
+ :tag "Select Method"
:args `((choice :tag "Method"
,@(mapcar (lambda (entry)
(list 'const :format "%v\n"
gnus-score-find-trace gnus-score-file-name)
("gnus-cus" :interactive t gnus-group-customize gnus-score-customize)
("gnus-topic" :interactive t gnus-topic-mode)
- ("gnus-topic" gnus-topic-remove-group gnus-topic-set-parameters)
+ ("gnus-topic" gnus-topic-remove-group gnus-topic-set-parameters
+ gnus-subscribe-topics)
("gnus-salt" :interactive t gnus-pick-mode gnus-binary-mode)
("gnus-uu" (gnus-uu-extract-map keymap) (gnus-uu-mark-map keymap))
("gnus-uu" :interactive t
(setq levels (- glen levels))
(dolist (g glist)
(push (if (>= (decf levels) 0)
- (substring g 0 1)
+ (if (zerop (length g))
+ ""
+ (substring g 0 1))
g)
res))
(concat foreign (mapconcat 'identity (nreverse res) "."))))))
-
+
(defun gnus-narrow-to-body ()
"Narrow to the body of an article."
(narrow-to-region