Lines Matching +defs:gnus +defs:summary +defs:low +defs:ticked
0 ;;; gnus.el --- a newsreader for GNU Emacs
7 ;; Lars Magne Ingebrigtsen <larsi@gnus.org>
31 (eval '(run-hooks 'gnus-load-hook))
38 ;; These are defined afterwards with gnus-define-group-parameter
39 (defvar gnus-ham-process-destinations)
40 (defvar gnus-parameter-ham-marks-alist)
41 (defvar gnus-parameter-spam-marks-alist)
42 (defvar gnus-spam-autodetect)
43 (defvar gnus-spam-autodetect-methods)
44 (defvar gnus-spam-newsgroup-contents)
45 (defvar gnus-spam-process-destinations)
46 (defvar gnus-spam-process-newsgroups)
49 (defgroup gnus nil
54 (defgroup gnus-start nil
56 :group 'gnus)
58 (defgroup gnus-format nil
60 :group 'gnus)
62 (defgroup gnus-charset nil
64 :link '(custom-manual "(gnus)Charsets")
66 :group 'gnus)
68 (defgroup gnus-cache nil
70 :link '(custom-manual "(gnus)Article Caching")
71 :group 'gnus)
73 (defgroup gnus-registry nil
75 :group 'gnus)
77 (defgroup gnus-start-server nil
79 :group 'gnus-start)
81 ;; These belong to gnus-group.el.
82 (defgroup gnus-group nil
84 :link '(custom-manual "(gnus)Group Buffer")
85 :group 'gnus)
87 (defgroup gnus-group-foreign nil
89 :link '(custom-manual "(gnus)Foreign Groups")
90 :group 'gnus-group)
92 (defgroup gnus-group-new nil
94 :group 'gnus-group)
96 (defgroup gnus-group-levels nil
98 :link '(custom-manual "(gnus)Group Levels")
99 :group 'gnus-group)
101 (defgroup gnus-group-select nil
103 :link '(custom-manual "(gnus)Selecting a Group")
104 :group 'gnus-group)
106 (defgroup gnus-group-listing nil
108 :link '(custom-manual "(gnus)Listing Groups")
109 :group 'gnus-group)
111 (defgroup gnus-group-visual nil
113 :link '(custom-manual "(gnus)Group Buffer Format")
114 :group 'gnus-group
115 :group 'gnus-visual)
117 (defgroup gnus-group-various nil
119 :link '(custom-manual "(gnus)Scanning New Messages")
120 :group 'gnus-group)
122 ;; These belong to gnus-sum.el.
123 (defgroup gnus-summary nil
125 :link '(custom-manual "(gnus)Summary Buffer")
126 :group 'gnus)
128 (defgroup gnus-summary-exit nil
129 "Leaving summary buffers."
130 :link '(custom-manual "(gnus)Exiting the Summary Buffer")
131 :group 'gnus-summary)
133 (defgroup gnus-summary-marks nil
134 "Marks used in summary buffers."
135 :link '(custom-manual "(gnus)Marking Articles")
136 :group 'gnus-summary)
138 (defgroup gnus-thread nil
140 :link '(custom-manual "(gnus)Threading")
141 :group 'gnus-summary)
143 (defgroup gnus-summary-format nil
144 "Formatting of the summary buffer."
145 :link '(custom-manual "(gnus)Summary Buffer Format")
146 :group 'gnus-summary)
148 (defgroup gnus-summary-choose nil
150 :link '(custom-manual "(gnus)Choosing Articles")
151 :group 'gnus-summary)
153 (defgroup gnus-summary-maneuvering nil
155 :link '(custom-manual "(gnus)Summary Maneuvering")
156 :group 'gnus-summary)
158 (defgroup gnus-picon nil
160 :group 'gnus-visual)
162 (defgroup gnus-summary-mail nil
164 :link '(custom-manual "(gnus)Mail Group Commands")
165 :group 'gnus-summary)
167 (defgroup gnus-summary-sort nil
168 "Sorting the summary buffer."
169 :link '(custom-manual "(gnus)Sorting the Summary Buffer")
170 :group 'gnus-summary)
172 (defgroup gnus-summary-visual nil
173 "Highlighting and menus in the summary buffer."
174 :link '(custom-manual "(gnus)Summary Highlighting")
175 :group 'gnus-visual
176 :group 'gnus-summary)
178 (defgroup gnus-summary-various nil
179 "Various summary buffer options."
180 :link '(custom-manual "(gnus)Various Summary Stuff")
181 :group 'gnus-summary)
183 (defgroup gnus-summary-pick nil
184 "Pick mode in the summary buffer."
185 :link '(custom-manual "(gnus)Pick and Read")
186 :prefix "gnus-pick-"
187 :group 'gnus-summary)
189 (defgroup gnus-summary-tree nil
190 "Tree display of threads in the summary buffer."
191 :link '(custom-manual "(gnus)Tree Display")
192 :prefix "gnus-tree-"
193 :group 'gnus-summary)
195 ;; Belongs to gnus-uu.el
196 (defgroup gnus-extract-view nil
198 :link '(custom-manual "(gnus)Viewing Files")
199 :group 'gnus-extract)
201 ;; Belongs to gnus-score.el
202 (defgroup gnus-score nil
204 :group 'gnus)
206 (defgroup gnus-score-kill nil
208 :group 'gnus-score)
210 (defgroup gnus-score-adapt nil
212 :group 'gnus-score)
214 (defgroup gnus-score-default nil
216 :group 'gnus-score)
218 (defgroup gnus-score-expire nil
220 :group 'gnus-score)
222 (defgroup gnus-score-decay nil
224 :group 'gnus-score)
226 (defgroup gnus-score-files nil
228 :group 'gnus-score
229 :group 'gnus-files)
231 (defgroup gnus-score-various nil
233 :group 'gnus-score)
236 (defgroup gnus-visual nil
238 :group 'gnus
241 (defgroup gnus-agent nil
243 :group 'gnus)
245 (defgroup gnus-files nil
247 :group 'gnus)
249 (defgroup gnus-dribble-file nil
251 :link '(custom-manual "(gnus)Auto Save")
252 :group 'gnus-files)
254 (defgroup gnus-newsrc nil
256 :group 'gnus-files)
258 (defgroup gnus-server nil
260 :group 'gnus)
262 (defgroup gnus-server-visual nil
264 :group 'gnus-visual
265 :group 'gnus-server)
267 (defgroup gnus-message '((message custom-group))
269 :group 'gnus)
271 (defgroup gnus-meta nil
275 :group 'gnus)
277 (defgroup gnus-various nil
279 :link '(custom-manual "(gnus)Various Various")
280 :group 'gnus)
282 (defgroup gnus-exit nil
284 :link '(custom-manual "(gnus)Exiting Gnus")
285 :group 'gnus)
287 (defgroup gnus-fun nil
289 :link '(custom-manual "(gnus)Exiting Gnus")
290 :group 'gnus)
292 (defconst gnus-version-number "5.11"
295 (defconst gnus-version (format "Gnus v%s" gnus-version-number)
298 (defcustom gnus-inhibit-startup-message nil
300 This variable is used before `.gnus.el' is loaded, so it should
302 :group 'gnus-start
305 (defcustom gnus-play-startup-jingle nil
307 :group 'gnus-start
310 (unless (fboundp 'gnus-group-remove-excess-properties)
311 (defalias 'gnus-group-remove-excess-properties 'ignore))
313 (unless (fboundp 'gnus-set-text-properties)
314 (defalias 'gnus-set-text-properties 'set-text-properties))
316 (unless (featurep 'gnus-xmas)
317 (defalias 'gnus-make-overlay 'make-overlay)
318 (defalias 'gnus-delete-overlay 'delete-overlay)
319 (defalias 'gnus-overlay-put 'overlay-put)
320 (defalias 'gnus-move-overlay 'move-overlay)
321 (defalias 'gnus-overlay-buffer 'overlay-buffer)
322 (defalias 'gnus-overlay-start 'overlay-start)
323 (defalias 'gnus-overlay-end 'overlay-end)
324 (defalias 'gnus-extent-detached-p 'ignore)
325 (defalias 'gnus-extent-start-open 'ignore)
326 (defalias 'gnus-appt-select-lowest-window 'appt-select-lowest-window)
327 (defalias 'gnus-mail-strip-quoted-names 'mail-strip-quoted-names)
328 (defalias 'gnus-character-to-event 'identity)
329 (defalias 'gnus-assq-delete-all 'assq-delete-all)
330 (defalias 'gnus-add-text-properties 'add-text-properties)
331 (defalias 'gnus-put-text-property 'put-text-property)
332 (defvar gnus-mode-line-image-cache t)
334 (defun gnus-mode-line-buffer-identification (line)
342 (if (eq t gnus-mode-line-image-cache)
343 (setq gnus-mode-line-image-cache
345 '((:type xpm :file "gnus-pointer.xpm"
347 (:type xbm :file "gnus-pointer.xbm"
349 gnus-mode-line-image-cache)
352 gnus-version (gnus-emacs-version)))
356 (defalias 'gnus-mode-line-buffer-identification 'identity))
357 (defalias 'gnus-characterp 'numberp)
358 (defalias 'gnus-deactivate-mark 'deactivate-mark)
359 (defalias 'gnus-window-edges 'window-edges)
360 (defalias 'gnus-key-press-event-p 'numberp)
361 ;;(defalias 'gnus-decode-rfc1522 'ignore)
367 (defface gnus-group-news-1
377 :group 'gnus-group)
379 (put 'gnus-group-news-1-face 'face-alias 'gnus-group-news-1)
381 (defface gnus-group-news-1-empty
391 :group 'gnus-group)
393 (put 'gnus-group-news-1-empty-face 'face-alias 'gnus-group-news-1-empty)
395 (defface gnus-group-news-2
405 :group 'gnus-group)
407 (put 'gnus-group-news-2-face 'face-alias 'gnus-group-news-2)
409 (defface gnus-group-news-2-empty
419 :group 'gnus-group)
421 (put 'gnus-group-news-2-empty-face 'face-alias 'gnus-group-news-2-empty)
423 (defface gnus-group-news-3
433 :group 'gnus-group)
435 (put 'gnus-group-news-3-face 'face-alias 'gnus-group-news-3)
437 (defface gnus-group-news-3-empty
447 :group 'gnus-group)
449 (put 'gnus-group-news-3-empty-face 'face-alias 'gnus-group-news-3-empty)
451 (defface gnus-group-news-4
461 :group 'gnus-group)
463 (put 'gnus-group-news-4-face 'face-alias 'gnus-group-news-4)
465 (defface gnus-group-news-4-empty
475 :group 'gnus-group)
477 (put 'gnus-group-news-4-empty-face 'face-alias 'gnus-group-news-4-empty)
479 (defface gnus-group-news-5
489 :group 'gnus-group)
491 (put 'gnus-group-news-5-face 'face-alias 'gnus-group-news-5)
493 (defface gnus-group-news-5-empty
503 :group 'gnus-group)
505 (put 'gnus-group-news-5-empty-face 'face-alias 'gnus-group-news-5-empty)
507 (defface gnus-group-news-6
517 :group 'gnus-group)
519 (put 'gnus-group-news-6-face 'face-alias 'gnus-group-news-6)
521 (defface gnus-group-news-6-empty
531 :group 'gnus-group)
533 (put 'gnus-group-news-6-empty-face 'face-alias 'gnus-group-news-6-empty)
535 (defface gnus-group-news-low
545 :group 'gnus-group)
547 (put 'gnus-group-news-low-face 'face-alias 'gnus-group-news-low)
549 (defface gnus-group-news-low-empty
559 :group 'gnus-group)
561 (put 'gnus-group-news-low-empty-face 'face-alias 'gnus-group-news-low-empty)
563 (defface gnus-group-mail-1
573 :group 'gnus-group)
575 (put 'gnus-group-mail-1-face 'face-alias 'gnus-group-mail-1)
577 (defface gnus-group-mail-1-empty
587 :group 'gnus-group)
589 (put 'gnus-group-mail-1-empty-face 'face-alias 'gnus-group-mail-1-empty)
591 (defface gnus-group-mail-2
601 :group 'gnus-group)
603 (put 'gnus-group-mail-2-face 'face-alias 'gnus-group-mail-2)
605 (defface gnus-group-mail-2-empty
615 :group 'gnus-group)
617 (put 'gnus-group-mail-2-empty-face 'face-alias 'gnus-group-mail-2-empty)
619 (defface gnus-group-mail-3
629 :group 'gnus-group)
631 (put 'gnus-group-mail-3-face 'face-alias 'gnus-group-mail-3)
633 (defface gnus-group-mail-3-empty
643 :group 'gnus-group)
645 (put 'gnus-group-mail-3-empty-face 'face-alias 'gnus-group-mail-3-empty)
647 (defface gnus-group-mail-low
657 :group 'gnus-group)
659 (put 'gnus-group-mail-low-face 'face-alias 'gnus-group-mail-low)
661 (defface gnus-group-mail-low-empty
671 :group 'gnus-group)
673 (put 'gnus-group-mail-low-empty-face 'face-alias 'gnus-group-mail-low-empty)
677 (defface gnus-summary-selected '((t (:underline t)))
679 :group 'gnus-summary)
681 (put 'gnus-summary-selected-face 'face-alias 'gnus-summary-selected)
683 (defface gnus-summary-cancelled
687 :group 'gnus-summary)
689 (put 'gnus-summary-cancelled-face 'face-alias 'gnus-summary-cancelled)
691 (defface gnus-summary-high-ticked
700 "Face used for high interest ticked articles."
701 :group 'gnus-summary)
703 (put 'gnus-summary-high-ticked-face 'face-alias 'gnus-summary-high-ticked)
705 (defface gnus-summary-low-ticked
714 "Face used for low interest ticked articles."
715 :group 'gnus-summary)
717 (put 'gnus-summary-low-ticked-face 'face-alias 'gnus-summary-low-ticked)
719 (defface gnus-summary-normal-ticked
728 "Face used for normal interest ticked articles."
729 :group 'gnus-summary)
731 (put 'gnus-summary-normal-ticked-face 'face-alias 'gnus-summary-normal-ticked)
733 (defface gnus-summary-high-ancient
743 :group 'gnus-summary)
745 (put 'gnus-summary-high-ancient-face 'face-alias 'gnus-summary-high-ancient)
747 (defface gnus-summary-low-ancient
756 "Face used for low interest ancient articles."
757 :group 'gnus-summary)
759 (put 'gnus-summary-low-ancient-face 'face-alias 'gnus-summary-low-ancient)
761 (defface gnus-summary-normal-ancient
771 :group 'gnus-summary)
773 (put 'gnus-summary-normal-ancient-face 'face-alias 'gnus-summary-normal-ancient)
775 (defface gnus-summary-high-undownloaded
783 :group 'gnus-summary)
785 (put 'gnus-summary-high-undownloaded-face 'face-alias 'gnus-summary-high-undownloaded)
787 (defface gnus-summary-low-undownloaded
794 "Face used for low interest uncached articles."
795 :group 'gnus-summary)
797 (put 'gnus-summary-low-undownloaded-face 'face-alias 'gnus-summary-low-undownloaded)
799 (defface gnus-summary-normal-undownloaded
807 :group 'gnus-summary)
809 (put 'gnus-summary-normal-undownloaded-face 'face-alias 'gnus-summary-normal-undownloaded)
811 (defface gnus-summary-high-unread
815 :group 'gnus-summary)
817 (put 'gnus-summary-high-unread-face 'face-alias 'gnus-summary-high-unread)
819 (defface gnus-summary-low-unread
822 "Face used for low interest unread articles."
823 :group 'gnus-summary)
825 (put 'gnus-summary-low-unread-face 'face-alias 'gnus-summary-low-unread)
827 (defface gnus-summary-normal-unread
831 :group 'gnus-summary)
833 (put 'gnus-summary-normal-unread-face 'face-alias 'gnus-summary-normal-unread)
835 (defface gnus-summary-high-read
847 :group 'gnus-summary)
849 (put 'gnus-summary-high-read-face 'face-alias 'gnus-summary-high-read)
851 (defface gnus-summary-low-read
862 "Face used for low interest read articles."
863 :group 'gnus-summary)
865 (put 'gnus-summary-low-read-face 'face-alias 'gnus-summary-low-read)
867 (defface gnus-summary-normal-read
877 :group 'gnus-summary)
879 (put 'gnus-summary-normal-read-face 'face-alias 'gnus-summary-normal-read)
886 (defvar gnus-buffers nil)
888 (defun gnus-get-buffer-create (name)
891 (car (push (get-buffer-create name) gnus-buffers))))
893 (defun gnus-add-buffer ()
895 (push (current-buffer) gnus-buffers))
897 (defmacro gnus-kill-buffer (buffer)
900 (when (gnus-buffer-exists-p buf)
901 (setq gnus-buffers (delete (get-buffer buf) gnus-buffers))
904 (defun gnus-buffers ()
906 (while (and gnus-buffers
907 (not (buffer-name (car gnus-buffers))))
908 (pop gnus-buffers))
909 (let ((buffers gnus-buffers))
914 gnus-buffers)
918 (defvar gnus-group-buffer "*Group*")
921 (autoload 'gnus-play-jingle "gnus-audio"))
923 (defface gnus-splash
933 :group 'gnus-start)
935 (put 'gnus-splash-face 'face-alias 'gnus-splash)
937 (defun gnus-splash ()
939 (switch-to-buffer (gnus-get-buffer-create gnus-group-buffer))
942 (unless gnus-inhibit-startup-message
943 (gnus-group-startup-message)
945 (when gnus-play-startup-jingle
946 (gnus-play-jingle))))))
948 (defun gnus-indent-rigidly (start end arg)
961 (defvar gnus-simple-splash nil)
965 (defvar gnus-logo-color-alist
986 (defcustom gnus-logo-color-style 'oort
989 gnus-logo-color-alist))
990 :group 'gnus-xmas)
992 (defvar gnus-logo-colors
993 (cdr (assq gnus-logo-color-style gnus-logo-color-alist))
996 (defun gnus-group-startup-message (&optional x y)
1004 (let* ((data-directory (nnheader-find-etc-directory "images/gnus"))
1011 `((:type xpm :file "gnus.xpm"
1013 (("thing" . ,(car gnus-logo-colors))
1014 ("shadow" . ,(cadr gnus-logo-colors))
1017 (:type pbm :file "gnus.pbm"
1019 :background ,(face-foreground 'gnus-splash)
1021 (:type xbm :file "gnus.xbm"
1023 :background ,(face-foreground 'gnus-splash)
1032 (setq gnus-simple-splash nil)
1058 (gnus-indent-rigidly (point-min) (point-max)
1067 (put-text-property (point-min) (point-max) 'face 'gnus-splash)
1068 (setq gnus-simple-splash t)))
1070 (setq mode-line-buffer-identification (concat " " gnus-version))
1075 (when (string-match "gnus" command)
1076 (if (string-match "gnus-other-frame" command)
1077 (gnus-get-buffer-create gnus-group-buffer)
1078 (gnus-splash)))))
1082 (require 'gnus-util)
1085 (defcustom gnus-parameters nil
1089 ((\"mail\\\\..*\" (gnus-show-threads nil)
1090 (gnus-use-scoring nil)
1091 (gnus-summary-line-format
1095 (\"mail\\\\.me\" (gnus-use-scoring t))
1099 :group 'gnus-group-various
1103 (defcustom gnus-parameters-case-fold-search 'default
1104 "If it is t, ignore case of group names specified in `gnus-parameters'.
1108 :group 'gnus-group-various
1114 (defvar gnus-group-parameters-more nil)
1116 (defmacro gnus-define-group-parameter (param &rest rest)
1133 (intern (format "gnus-parameter-%s" param))))
1136 (intern (format "gnus-parameter-%s-alist" param))))
1148 :group 'gnus-group-parameter
1151 `(setq gnus-group-parameters-more
1152 (delq (assq ',param gnus-group-parameters-more)
1153 gnus-group-parameters-more))
1154 `(add-to-list 'gnus-group-parameters-more
1161 (let ((params (gnus-group-find-parameter name))
1182 (or (gnus-group-find-parameter name ',param ,(and type t))
1194 (defcustom gnus-home-directory "~/"
1197 :group 'gnus-files
1200 (defcustom gnus-directory (or (getenv "SAVEDIR")
1201 (nnheader-concat gnus-home-directory "News/"))
1204 Note that Gnus is mostly loaded when the `.gnus.el' file is read.
1206 this variable won't be set properly if you set this variable in `.gnus.el'.
1208 :group 'gnus-files
1211 (defcustom gnus-default-directory nil
1213 :group 'gnus-files
1220 (defvar gnus-default-nntp-server nil
1224 If you want to change servers, you should use `gnus-select-method'.
1228 (defvar gnus-nntp-service "nntp"
1234 (setq gnus-select-method '(nntp \"my.nntp.server\" (nntp-port-number 899)))")
1236 (defcustom gnus-nntpserver-file "/etc/nntpserver"
1238 :group 'gnus-files
1239 :group 'gnus-server
1242 (defun gnus-getenv-nntpserver ()
1245 `gnus-nntpserver-file' file."
1247 (and (file-readable-p gnus-nntpserver-file)
1249 (insert-file-contents gnus-nntpserver-file)
1253 ;; `M-x customize-variable RET gnus-select-method RET' should work without
1256 ;;;###autoload (custom-autoload 'gnus-select-method "gnus"))
1258 (defcustom gnus-select-method
1262 (gnus-getenv-nntpserver)
1264 (when (and gnus-default-nntp-server
1265 (not (string= gnus-default-nntp-server "")))
1266 gnus-default-nntp-server)
1268 (if (or (null gnus-nntp-service)
1269 (equal gnus-nntp-service "nntp"))
1271 (list gnus-nntp-service)))
1280 \(setq gnus-select-method '(nntp \"flab.flab.edu\"))
1284 \(setq gnus-select-method (list 'nnspool (system-name)))
1286 If you use this variable, you must set `gnus-nntp-server' to nil.
1290 :group 'gnus-server
1291 :group 'gnus-start
1293 :type 'gnus-select-method)
1295 (defcustom gnus-message-archive-method "archive"
1298 :group 'gnus-server
1299 :group 'gnus-message
1301 gnus-select-method))
1303 (defcustom gnus-message-archive-group nil
1313 \(setq gnus-message-archive-group
1323 :group 'gnus-message
1329 (defcustom gnus-secondary-servers nil
1331 To make Gnus query you for a server, you have to give `gnus' a
1332 non-numeric prefix - `C-u M-x gnus', in short."
1333 :group 'gnus-server
1336 (defcustom gnus-nntp-server nil
1338 This variable is semi-obsolete. Use the `gnus-select-method'
1340 :group 'gnus-server
1344 (defcustom gnus-secondary-select-methods nil
1347 `gnus-select-method').
1352 \(setq gnus-secondary-select-methods '((nnml \"\")))"
1353 :group 'gnus-server
1354 :type '(repeat gnus-select-method))
1356 (defvar gnus-backup-default-subscribed-newsgroups
1357 '("news.announce.newusers" "news.groups.questions" "gnu.emacs.gnus")
1361 (defcustom gnus-local-domain nil
1366 :group 'gnus-message
1370 (defvar gnus-local-organization nil
1376 (defcustom gnus-refer-article-method nil
1383 in the documentation of `gnus-select-method'.
1388 :group 'gnus-server
1392 gnus-select-method
1400 gnus-select-method))))
1402 (defcustom gnus-group-faq-directory
1438 :group 'gnus-group-various
1442 (defcustom gnus-group-charter-alist
1449 (gnus-replace-in-string name "europa\\." "") ".html"))
1458 (gnus-replace-in-string name "\\." "_") ".html"))
1460 (gnus-replace-in-string name "milw\\." "") "-charter"))
1463 (gnus-replace-in-string name "\\." "-") "-charter.html")))
1467 :group 'gnus-group-various
1470 (defcustom gnus-group-fetch-control-use-browse-url nil
1475 :group 'gnus-group-various
1478 (defcustom gnus-use-cross-reference t
1483 :group 'gnus-server
1489 (defcustom gnus-process-mark ?#
1491 :group 'gnus-group-visual
1492 :group 'gnus-summary-marks
1495 (defcustom gnus-large-newsgroup 200
1500 :group 'gnus-group-select
1504 (defcustom gnus-use-long-file-name (not (memq system-type '(usg-unix-v xenix)))
1517 :group 'gnus-start
1527 (defcustom gnus-kill-files-directory gnus-directory
1529 :group 'gnus-score-files
1530 :group 'gnus-score-kill
1533 (defcustom gnus-save-score nil
1535 :group 'gnus-score-various
1536 :group 'gnus-start
1539 (defcustom gnus-use-undo t
1541 :group 'gnus-meta
1544 (defcustom gnus-use-adaptive-scoring nil
1549 :group 'gnus-meta
1550 :group 'gnus-score-adapt
1553 (defcustom gnus-use-cache 'passive
1558 :group 'gnus-meta
1559 :group 'gnus-cache
1564 (defcustom gnus-use-trees nil
1566 :group 'gnus-meta
1569 (defcustom gnus-use-grouplens nil
1571 :group 'gnus-meta
1574 (defcustom gnus-keep-backlog 20
1579 :group 'gnus-meta
1585 (defcustom gnus-use-nocem nil
1590 argument to some commands, e.g. `gnus', `gnus-group-get-new-news', etc.
1593 :group 'gnus-meta
1600 :value (if (boundp 'gnus-level-default-subscribed)
1601 gnus-level-default-subscribed
1604 (defcustom gnus-suppress-duplicates nil
1606 :group 'gnus-meta
1609 (defcustom gnus-use-scoring t
1611 :group 'gnus-meta
1614 (defcustom gnus-summary-prepare-exit-hook
1615 '(gnus-summary-expire-articles)
1616 "*A hook called when preparing to exit from the summary buffer.
1617 It calls `gnus-summary-expire-articles' by default."
1618 :group 'gnus-summary-exit
1621 (defcustom gnus-novice-user t
1625 :group 'gnus-meta
1628 (defcustom gnus-expert-user nil
1632 :group 'gnus-meta
1635 (defcustom gnus-interactive-catchup t
1637 :group 'gnus-group-select
1640 (defcustom gnus-interactive-exit t
1642 :group 'gnus-exit
1645 (defcustom gnus-extract-address-components 'gnus-extract-address-components
1647 Two pre-defined function exist: `gnus-extract-address-components',
1651 :group 'gnus-summary-format
1652 :type '(radio (function-item gnus-extract-address-components)
1656 (defcustom gnus-carpal nil
1658 :group 'gnus-meta
1661 (defcustom gnus-shell-command-separator ";"
1663 :group 'gnus-files
1666 (defcustom gnus-valid-select-methods
1701 :group 'gnus-server
1714 (defun gnus-redefine-select-method-widget ()
1716 `gnus-valid-select-methods'."
1717 (define-widget 'gnus-select-method 'list
1725 gnus-valid-select-methods)
1734 (gnus-redefine-select-method-widget)
1736 (defcustom gnus-updated-mode-lines '(group article summary tree)
1739 `summary'. If the corresponding symbol is present, Gnus will keep
1742 :group 'gnus-various
1745 (const summary)
1749 (defcustom gnus-mode-non-string-length nil
1754 :group 'gnus-various
1759 (define-widget 'gnus-email-address 'string
1762 (gnus-define-group-parameter
1768 :variable-group gnus-group-parameter
1769 :parameter-type '(gnus-email-address :tag "To Address")
1786 The gnus-group-split mail splitting mechanism will behave as if this
1787 address was listed in gnus-group-split Addresses (see below).")
1789 (gnus-define-group-parameter
1795 :variable-group gnus-group-parameter
1796 :parameter-type '(gnus-email-address :tag "To List")
1804 The gnus-group-split mail splitting mechanism will behave as if this
1805 address was listed in gnus-group-split Addresses (see below).")
1807 (gnus-define-group-parameter
1814 :variable-group gnus-group-parameter
1820 `gnus-find-subscribed-addresses', Gnus includes the To address given
1823 (gnus-define-group-parameter
1826 :function gnus-group-auto-expirable-p
1829 :variable gnus-auto-expirable-newsgroups
1842 (gnus-define-group-parameter
1845 :function gnus-group-total-expirable-p
1848 :variable gnus-total-expirable-newsgroups
1866 (gnus-define-group-parameter
1870 :variable gnus-group-charset-alist
1886 :variable-group gnus-charset
1893 (gnus-define-group-parameter
1898 :variable gnus-post-method-alist
1902 :variable-group gnus-group-foreign
1910 :value gnus-select-method))))
1914 (gnus-define-group-parameter
1921 :variable-group gnus-group-parameter
1929 `gnus-large-newsgroup'). If it is nil, the default value is the
1933 (gnus-define-group-parameter
1938 :variable gnus-registry-ignored-groups
1942 :variable-group gnus-registry
1953 (defcustom gnus-install-group-spam-parameters t
1958 :group 'gnus-start)
1960 (when gnus-install-group-spam-parameters
1961 (defvar gnus-group-spam-classification-spam t
1963 This group contains spam messages. On summary entry, unread messages
1964 will be marked as spam. On summary exit, the specified spam
1969 (defvar gnus-group-spam-classification-ham 'ask
1971 On summary exit, the specified ham processors will be invoked on
1976 (gnus-define-group-parameter
1981 :variable gnus-spam-newsgroup-contents
1988 summary entry. There is other behavior associated with ham and
1995 (variable-item gnus-group-spam-classification-spam)
1996 (variable-item gnus-group-spam-classification-ham)
2001 (variable-item gnus-group-spam-classification-spam)
2002 (variable-item gnus-group-spam-classification-ham)
2010 (defvar gnus-group-spam-exit-processor-ifile "ifile"
2011 "OBSOLETE: The ifile summary exit spam processor.")
2013 (defvar gnus-group-spam-exit-processor-stat "stat"
2014 "OBSOLETE: The spam-stat summary exit spam processor.")
2016 (defvar gnus-group-spam-exit-processor-bogofilter "bogofilter"
2017 "OBSOLETE: The Bogofilter summary exit spam processor.")
2019 (defvar gnus-group-spam-exit-processor-blacklist "blacklist"
2020 "OBSOLETE: The Blacklist summary exit spam processor.")
2022 (defvar gnus-group-spam-exit-processor-report-gmane "report-gmane"
2023 "OBSOLETE: The Gmane reporting summary exit spam processor.
2026 (defvar gnus-group-spam-exit-processor-spamoracle "spamoracle-spam"
2027 "OBSOLETE: The spamoracle summary exit spam processor.")
2029 (defvar gnus-group-ham-exit-processor-ifile "ifile-ham"
2030 "OBSOLETE: The ifile summary exit ham processor.
2033 (defvar gnus-group-ham-exit-processor-bogofilter "bogofilter-ham"
2034 "OBSOLETE: The Bogofilter summary exit ham processor.
2037 (defvar gnus-group-ham-exit-processor-stat "stat-ham"
2038 "OBSOLETE: The spam-stat summary exit ham processor.
2041 (defvar gnus-group-ham-exit-processor-whitelist "whitelist"
2042 "OBSOLETE: The whitelist summary exit ham processor.
2045 (defvar gnus-group-ham-exit-processor-BBDB "bbdb"
2046 "OBSOLETE: The BBDB summary exit ham processor.
2049 (defvar gnus-group-ham-exit-processor-copy "copy"
2053 (defvar gnus-group-ham-exit-processor-spamoracle "spamoracle-ham"
2054 "OBSOLETE: The spamoracle summary exit ham processor.
2057 (gnus-define-group-parameter
2066 (variable-item gnus-group-spam-exit-processor-ifile)
2067 (variable-item gnus-group-spam-exit-processor-stat)
2068 (variable-item gnus-group-spam-exit-processor-bogofilter)
2069 (variable-item gnus-group-spam-exit-processor-blacklist)
2070 (variable-item gnus-group-spam-exit-processor-spamoracle)
2071 (variable-item gnus-group-spam-exit-processor-report-gmane)
2072 (variable-item gnus-group-ham-exit-processor-bogofilter)
2073 (variable-item gnus-group-ham-exit-processor-ifile)
2074 (variable-item gnus-group-ham-exit-processor-stat)
2075 (variable-item gnus-group-ham-exit-processor-whitelist)
2076 (variable-item gnus-group-ham-exit-processor-BBDB)
2077 (variable-item gnus-group-ham-exit-processor-spamoracle)
2078 (variable-item gnus-group-ham-exit-processor-copy)
2093 "Which spam or ham processors will be applied when the summary is exited."
2094 :variable gnus-spam-process-newsgroups
2098 a backend on summary exit. If non-nil, this should be a list of group
2108 (variable-item gnus-group-spam-exit-processor-ifile)
2109 (variable-item gnus-group-spam-exit-processor-stat)
2110 (variable-item gnus-group-spam-exit-processor-bogofilter)
2111 (variable-item gnus-group-spam-exit-processor-blacklist)
2112 (variable-item gnus-group-spam-exit-processor-spamoracle)
2113 (variable-item gnus-group-spam-exit-processor-report-gmane)
2114 (variable-item gnus-group-ham-exit-processor-bogofilter)
2115 (variable-item gnus-group-ham-exit-processor-ifile)
2116 (variable-item gnus-group-ham-exit-processor-stat)
2117 (variable-item gnus-group-ham-exit-processor-whitelist)
2118 (variable-item gnus-group-ham-exit-processor-BBDB)
2119 (variable-item gnus-group-ham-exit-processor-spamoracle)
2120 (variable-item gnus-group-ham-exit-processor-copy)
2136 "Which spam or ham processors will be applied when the summary is exited.")
2138 (gnus-define-group-parameter
2145 :variable gnus-spam-autodetect
2163 (gnus-define-group-parameter
2185 :variable gnus-spam-autodetect-methods
2220 (gnus-define-group-parameter
2224 '(choice :tag "Destination for spam-processed articles at summary exit"
2230 "Where spam-processed articles will go at summary exit."
2231 :variable gnus-spam-process-destinations
2247 :tag "Destination for spam-processed articles at summary exit"
2253 "Where spam-processed articles will go at summary exit.")
2255 (gnus-define-group-parameter
2260 :tag "Destination for ham articles at summary exit from a spam group"
2267 "Where ham articles will go at summary exit from a spam group."
2268 :variable gnus-ham-process-destinations
2284 :tag "Destination for ham articles at summary exit from spam group"
2291 "Where ham articles will go at summary exit from a spam group.")
2293 (gnus-define-group-parameter
2298 (variable-item gnus-del-mark)
2299 (variable-item gnus-read-mark)
2300 (variable-item gnus-ticked-mark)
2301 (variable-item gnus-killed-mark)
2302 (variable-item gnus-kill-file-mark)
2303 (variable-item gnus-low-score-mark)))
2309 :variable-default '((".*" ((gnus-del-mark
2310 gnus-read-mark
2311 gnus-killed-mark
2312 gnus-kill-file-mark
2313 gnus-low-score-mark))))
2318 (gnus-define-group-parameter
2323 (variable-item gnus-spam-mark)
2324 (variable-item gnus-killed-mark)
2325 (variable-item gnus-kill-file-mark)
2326 (variable-item gnus-low-score-mark)))
2332 :variable-default '((".*" ((gnus-spam-mark))))
2337 (defcustom gnus-group-uncollapsed-levels 1
2339 :group 'gnus-group-visual
2342 (defcustom gnus-group-use-permanent-levels nil
2344 :group 'gnus-group-levels
2349 (defcustom gnus-load-hook nil
2351 :group 'gnus-start
2354 (defcustom gnus-apply-kill-hook '(gnus-apply-kill-file)
2357 The function `gnus-apply-kill-file' is called by default.
2365 (setq gnus-apply-kill-hook
2368 (cond ((string-match \"control\" gnus-newsgroup-name)
2369 (gnus-kill \"Subject\" \"rmgroup\")
2370 (gnus-expunge \"X\"))))))"
2371 :group 'gnus-score-kill
2372 :options '(gnus-apply-kill-file)
2375 (defcustom gnus-group-change-level-function nil
2378 :group 'gnus-group-levels
2384 (defcustom gnus-visual
2385 '(summary-highlight group-highlight article-highlight
2387 summary-menu group-menu article-menu
2400 (setq gnus-visual '(menu))
2402 Valid elements include `summary-highlight', `group-highlight',
2403 `article-highlight', `mouse-face', `summary-menu', `group-menu',
2407 :group 'gnus-meta
2408 :group 'gnus-visual
2409 :type '(set (const summary-highlight)
2413 (const summary-menu)
2428 (defvar gnus-visual)
2429 ;; Find out whether the gnus-visual TYPE is wanted.
2430 (defun gnus-visual-p (&optional type class)
2431 (and gnus-visual ; Has to be non-nil, at least.
2433 gnus-visual
2434 (if (listp gnus-visual) ; It's a list, so we check it.
2435 (or (memq type gnus-visual)
2436 (memq class gnus-visual))
2439 (defcustom gnus-mouse-face
2441 (if (gnus-visual-p 'mouse-face 'highlight)
2442 (if (boundp 'gnus-mouse-face)
2443 (or gnus-mouse-face 'highlight)
2447 "*Face used for group or summary buffer mouse highlighting.
2450 :group 'gnus-visual
2453 (defcustom gnus-article-save-directory gnus-directory
2455 :group 'gnus-article-saving
2458 (defvar gnus-plugged t
2461 (defcustom gnus-agent-cache t
2465 `gnus-agent' for this to have any affect."
2467 :group 'gnus-agent
2470 (defcustom gnus-default-charset 'undecided
2473 `gnus-group-charset-alist' variable and is only used on groups not
2476 :group 'gnus-charset)
2479 (defcustom gnus-agent t
2482 You may customize gnus-agent to disable its use. However, some
2486 :group 'gnus-agent
2489 (defcustom gnus-other-frame-function 'gnus
2490 "Function called by the command `gnus-other-frame'."
2491 :group 'gnus-start
2492 :type '(choice (function-item gnus)
2493 (function-item gnus-no-server)
2494 (function-item gnus-slave)
2495 (function-item gnus-slave-no-server)))
2497 (defcustom gnus-other-frame-parameters nil
2498 "Frame parameters used by `gnus-other-frame' to create a Gnus frame.
2500 :group 'gnus-start
2509 (defcustom gnus-user-agent '(emacs gnus type)
2512 Can be a list of symbols or a string. Valid symbols are `gnus'
2520 :group 'gnus-message
2522 (const gnus :tag "Gnus version")
2531 (when (symbolp gnus-user-agent)
2532 (setq gnus-user-agent
2533 (cond ((eq gnus-user-agent 'emacs-gnus-config)
2534 '(emacs gnus config))
2535 ((eq gnus-user-agent 'emacs-gnus-type)
2536 '(emacs gnus type))
2537 ((eq gnus-user-agent 'emacs-gnus)
2538 '(emacs gnus))
2539 ((eq gnus-user-agent 'gnus)
2540 '(gnus))
2541 (t gnus-user-agent)))
2542 (gnus-message 1 "Converted `gnus-user-agent' to `%s'." gnus-user-agent)
2544 (if (get 'gnus-user-agent 'saved-value)
2545 (customize-save-variable 'gnus-user-agent gnus-user-agent)
2546 (gnus-message 1 "Edit your init file to make this change permanent.")
2553 (defvar gnus-agent-gcc-header "X-Gnus-Agent-Gcc")
2554 (defvar gnus-agent-meta-information-header "X-Gnus-Agent-Meta-Information")
2555 (defvar gnus-agent-method-p-cache nil
2556 ; Reset each time gnus-agent-covered-methods is changed else
2557 ; gnus-agent-method-p may mis-report a methods status.
2559 (defvar gnus-agent-target-move-group-header "X-Gnus-Agent-Move-To")
2560 (defvar gnus-draft-meta-information-header "X-Draft-From")
2561 (defvar gnus-group-get-parameter-function 'gnus-group-get-parameter)
2562 (defvar gnus-original-article-buffer " *Original Article*")
2563 (defvar gnus-newsgroup-name nil)
2564 (defvar gnus-ephemeral-servers nil)
2565 (defvar gnus-server-method-cache nil)
2567 (defvar gnus-agent-fetching nil
2570 (defvar gnus-agent-covered-methods nil
2573 (defvar gnus-command-method nil
2576 (defvar gnus-current-select-method nil
2579 (defvar gnus-tree-buffer "*Tree*"
2583 (defvar gnus-use-generic-from nil)
2586 (defvar gnus-method-history nil)
2589 (defvar gnus-mail-method-history nil)
2592 (defvar gnus-group-history nil)
2594 (defvar gnus-server-alist nil
2597 (defcustom gnus-cache-directory
2598 (nnheader-concat gnus-directory "cache/")
2600 :group 'gnus-cache
2603 (defvar gnus-predefined-server-alist
2606 (nnspool-spool-directory ,gnus-cache-directory)
2607 (nnspool-nov-directory ,gnus-cache-directory)
2609 ,(nnheader-concat gnus-cache-directory "active"))))
2612 (defvar gnus-topic-indentation "") ;; Obsolete variable.
2614 (defconst gnus-article-mark-lists
2623 (defconst gnus-article-special-mark-lists
2630 ;; `seen' is private to each gnus installation
2631 ;; `cache' is a internal gnus flag for each gnus installation
2632 ;; `download' is a agent flag private to each gnus installation
2636 (defconst gnus-article-unpropagated-mark-lists
2643 (defvar gnus-headers-retrieved-by nil)
2644 (defvar gnus-article-reply nil)
2645 (defvar gnus-override-method nil)
2646 (defvar gnus-article-check-size nil)
2647 (defvar gnus-opened-servers nil)
2649 (defvar gnus-current-kill-article nil)
2651 (defvar gnus-have-read-active-file nil)
2653 (defconst gnus-maintainer
2654 "bugs@gnus.org (The Gnus Bugfixing Girls + Boys)"
2657 (defvar gnus-info-nodes
2658 '((gnus-group-mode "(gnus)Group Buffer")
2659 (gnus-summary-mode "(gnus)Summary Buffer")
2660 (gnus-article-mode "(gnus)Article Buffer")
2661 (gnus-server-mode "(gnus)Server Buffer")
2662 (gnus-browse-mode "(gnus)Browse Foreign Server")
2663 (gnus-tree-mode "(gnus)Tree Display"))
2666 (defvar gnus-group-buffer "*Group*")
2667 (defvar gnus-summary-buffer "*Summary*")
2668 (defvar gnus-article-buffer "*Article*")
2669 (defvar gnus-server-buffer "*Server*")
2671 (defvar gnus-slave nil
2674 (defvar gnus-batch-mode nil
2677 (defvar gnus-variable-list
2678 '(gnus-newsrc-options gnus-newsrc-options-n
2679 gnus-newsrc-last-checked-date
2680 gnus-newsrc-alist gnus-server-alist
2681 gnus-killed-list gnus-zombie-list
2682 gnus-topic-topology gnus-topic-alist
2683 gnus-format-specs)
2686 (defvar gnus-newsrc-alist nil
2688 `gnus-newsrc-hashtb' should be kept so that both hold the same information.")
2690 (defvar gnus-registry-alist nil
2692 gnus-registry.el will populate this if it's loaded.")
2694 (defvar gnus-newsrc-hashtb nil
2695 "Hashtable of `gnus-newsrc-alist'.")
2697 (defvar gnus-killed-list nil
2700 (defvar gnus-killed-hashtb nil
2701 "Hash table equivalent of `gnus-killed-list'.")
2703 (defvar gnus-zombie-list nil
2706 (defvar gnus-description-hashtb nil
2709 (defvar gnus-list-of-killed-groups nil
2712 (defvar gnus-active-hashtb nil
2715 (defvar gnus-moderated-hashtb nil
2719 (defvar gnus-prev-winconf nil)
2721 (defvar gnus-reffed-article-number nil)
2726 (defvar gnus-dead-summary nil)
2728 (defvar gnus-invalid-group-regexp "[: `'\"/]\\|^$"
2731 (defvar gnus-other-frame-object nil
2732 "A frame object which will be created by `gnus-other-frame'.")
2766 rmail-show-message rmail-summary-exists
2767 rmail-select-summary rmail-update-summary)
2768 ("gnus-audio" :interactive t gnus-audio-play)
2769 ("gnus-xmas" gnus-xmas-splash)
2770 ("gnus-soup" :interactive t
2771 gnus-group-brew-soup gnus-brew-soup gnus-soup-add-article
2772 gnus-soup-send-replies gnus-soup-save-areas gnus-soup-pack-packet)
2774 ("score-mode" :interactive t gnus-score-mode)
2775 ("gnus-mh" gnus-summary-save-article-folder
2776 gnus-Folder-save-name gnus-folder-save-name)
2777 ("gnus-mh" :interactive t gnus-summary-save-in-folder)
2778 ("gnus-demon" gnus-demon-add-nocem gnus-demon-add-scanmail
2779 gnus-demon-add-rescan gnus-demon-add-scan-timestamps
2780 gnus-demon-add-disconnection gnus-demon-add-handler
2781 gnus-demon-remove-handler)
2782 ("gnus-demon" :interactive t
2783 gnus-demon-init gnus-demon-cancel)
2784 ("gnus-fun" gnus-convert-gray-x-face-to-xpm gnus-display-x-face-in-from
2785 gnus-convert-image-to-gray-x-face gnus-convert-face-to-png
2786 gnus-face-from-file)
2787 ("gnus-salt" gnus-highlight-selected-tree gnus-possibly-generate-tree
2788 gnus-tree-open gnus-tree-close gnus-carpal-setup-buffer)
2789 ("gnus-nocem" gnus-nocem-scan-groups gnus-nocem-close
2790 gnus-nocem-unwanted-article-p)
2791 ("gnus-srvr" gnus-enter-server-buffer gnus-server-set-info
2792 gnus-server-server-name)
2793 ("gnus-srvr" gnus-browse-foreign-server)
2794 ("gnus-cite" :interactive t
2795 gnus-article-highlight-citation gnus-article-hide-citation-maybe
2796 gnus-article-hide-citation gnus-article-fill-cited-article
2797 gnus-article-hide-citation-in-followups)
2798 ("gnus-kill" gnus-kill gnus-apply-kill-file-internal
2799 gnus-kill-file-edit-file gnus-kill-file-raise-followups-to-author
2800 gnus-execute gnus-expunge gnus-batch-kill gnus-batch-score)
2801 ("gnus-cache" gnus-cache-possibly-enter-article gnus-cache-save-buffers
2802 gnus-cache-possibly-remove-articles gnus-cache-request-article
2803 gnus-cache-retrieve-headers gnus-cache-possibly-alter-active
2804 gnus-cache-enter-remove-article gnus-cached-article-p
2805 gnus-cache-open gnus-cache-close gnus-cache-update-article
2806 gnus-cache-articles-in-group)
2807 ("gnus-cache" :interactive t gnus-jog-cache gnus-cache-enter-article
2808 gnus-cache-remove-article gnus-summary-insert-cached-articles)
2809 ("gnus-score" :interactive t
2810 gnus-summary-increase-score gnus-summary-set-score
2811 gnus-summary-raise-thread gnus-summary-raise-same-subject
2812 gnus-summary-raise-score gnus-summary-raise-same-subject-and-select
2813 gnus-summary-lower-thread gnus-summary-lower-same-subject
2814 gnus-summary-lower-score gnus-summary-lower-same-subject-and-select
2815 gnus-summary-current-score gnus-score-delta-default
2816 gnus-score-flush-cache gnus-score-close
2817 gnus-possibly-score-headers gnus-score-followup-article
2818 gnus-score-followup-thread)
2819 ("gnus-score"
2820 (gnus-summary-score-map keymap) gnus-score-save gnus-score-headers
2821 gnus-current-score-file-nondirectory gnus-score-adaptive
2822 gnus-score-find-trace gnus-score-file-name)
2823 ("gnus-cus" :interactive t gnus-group-customize gnus-score-customize)
2824 ("gnus-topic" :interactive t gnus-topic-mode)
2825 ("gnus-topic" gnus-topic-remove-group gnus-topic-set-parameters
2826 gnus-subscribe-topics)
2827 ("gnus-salt" :interactive t gnus-pick-mode gnus-binary-mode)
2828 ("gnus-uu" (gnus-uu-extract-map keymap) (gnus-uu-mark-map keymap))
2829 ("gnus-uu" :interactive t
2830 gnus-uu-digest-mail-forward gnus-uu-digest-post-forward
2831 gnus-uu-mark-series gnus-uu-mark-region gnus-uu-mark-buffer
2832 gnus-uu-mark-by-regexp gnus-uu-mark-all
2833 gnus-uu-mark-sparse gnus-uu-mark-thread gnus-uu-decode-uu
2834 gnus-uu-decode-uu-and-save gnus-uu-decode-unshar
2835 gnus-uu-decode-unshar-and-save gnus-uu-decode-save
2836 gnus-uu-decode-binhex gnus-uu-decode-uu-view
2837 gnus-uu-decode-uu-and-save-view gnus-uu-decode-unshar-view
2838 gnus-uu-decode-unshar-and-save-view gnus-uu-decode-save-view
2839 gnus-uu-decode-binhex-view gnus-uu-unmark-thread
2840 gnus-uu-mark-over gnus-uu-post-news)
2841 ("gnus-uu" gnus-uu-delete-work-dir gnus-uu-unmark-thread)
2842 ("gnus-msg" (gnus-summary-send-map keymap)
2843 gnus-article-mail gnus-copy-article-buffer gnus-extended-version)
2844 ("gnus-msg" :interactive t
2845 gnus-group-post-news gnus-group-mail gnus-group-news
2846 gnus-summary-post-news gnus-summary-news-other-window
2847 gnus-summary-followup gnus-summary-followup-with-original
2848 gnus-summary-cancel-article gnus-summary-supersede-article
2849 gnus-post-news gnus-summary-reply gnus-summary-reply-with-original
2850 gnus-summary-mail-forward gnus-summary-mail-other-window
2851 gnus-summary-resend-message gnus-summary-resend-bounced-mail
2852 gnus-summary-wide-reply gnus-summary-followup-to-mail
2853 gnus-summary-followup-to-mail-with-original gnus-bug
2854 gnus-summary-wide-reply-with-original
2855 gnus-summary-post-forward gnus-summary-wide-reply-with-original
2856 gnus-summary-post-forward)
2857 ("gnus-picon" :interactive t gnus-treat-from-picon)
2858 ("gnus-gl" bbb-login bbb-logout bbb-grouplens-group-p
2859 gnus-grouplens-mode)
2861 ("gnus-win" gnus-configure-windows gnus-add-configuration)
2862 ("gnus-sum" gnus-summary-insert-line gnus-summary-read-group
2863 gnus-list-of-unread-articles gnus-list-of-read-articles
2864 gnus-offer-save-summaries gnus-make-thread-indent-array
2865 gnus-summary-exit gnus-update-read-articles gnus-summary-last-subject
2866 gnus-summary-skip-intangible gnus-summary-article-number
2867 gnus-data-header gnus-data-find)
2868 ("gnus-group" gnus-group-insert-group-line gnus-group-quit
2869 gnus-group-list-groups gnus-group-first-unread-group
2870 gnus-group-set-mode-line gnus-group-set-info gnus-group-save-newsrc
2871 gnus-group-setup-buffer gnus-group-get-new-news
2872 gnus-group-make-help-group gnus-group-update-group
2873 gnus-group-iterate gnus-group-group-name)
2874 ("gnus-bcklg" gnus-backlog-request-article gnus-backlog-enter-article
2875 gnus-backlog-remove-article)
2876 ("gnus-art" gnus-article-read-summary-keys gnus-article-save
2877 gnus-article-prepare gnus-article-set-window-start
2878 gnus-article-next-page gnus-article-prev-page
2879 gnus-request-article-this-buffer gnus-article-mode
2880 gnus-article-setup-buffer gnus-narrow-to-page
2881 gnus-article-delete-invisible-text gnus-treat-article)
2882 ("gnus-art" :interactive t
2883 gnus-article-hide-headers gnus-article-hide-boring-headers
2884 gnus-article-treat-overstrike
2885 gnus-article-remove-cr gnus-article-remove-trailing-blank-lines
2886 gnus-article-display-x-face gnus-article-de-quoted-unreadable
2887 gnus-article-de-base64-unreadable
2888 gnus-article-decode-HZ
2889 gnus-article-wash-html
2890 gnus-article-unsplit-urls
2891 gnus-article-hide-pem gnus-article-hide-signature
2892 gnus-article-strip-leading-blank-lines gnus-article-date-local
2893 gnus-article-date-original gnus-article-date-lapsed
2894 ;; gnus-article-show-all-headers
2895 gnus-article-edit-mode gnus-article-edit-article
2896 gnus-article-edit-done gnus-article-decode-encoded-words
2897 gnus-start-date-timer gnus-stop-date-timer
2898 gnus-mime-view-all-parts)
2899 ("gnus-int" gnus-request-type)
2900 ("gnus-start" gnus-newsrc-parse-options gnus-1 gnus-no-server-1
2901 gnus-dribble-enter gnus-read-init-file gnus-dribble-touch)
2902 ("gnus-dup" gnus-dup-suppress-articles gnus-dup-unsuppress-article
2903 gnus-dup-enter-articles)
2904 ("gnus-range" gnus-copy-sequence)
2905 ("gnus-eform" gnus-edit-form)
2906 ("gnus-move" :interactive t
2907 gnus-group-move-group-to-server gnus-change-server)
2908 ("gnus-logic" gnus-score-advanced)
2909 ("gnus-undo" gnus-undo-mode gnus-undo-register)
2910 ("gnus-async" gnus-async-request-fetched-article gnus-async-prefetch-next
2911 gnus-async-prefetch-article gnus-async-prefetch-remove-group
2912 gnus-async-halt-prefetch)
2913 ("gnus-agent" gnus-open-agent gnus-agent-get-function
2914 gnus-agent-save-active gnus-agent-method-p
2915 gnus-agent-get-undownloaded-list gnus-agent-fetch-session
2916 gnus-summary-set-agent-mark gnus-agent-save-group-info
2917 gnus-agent-request-article gnus-agent-retrieve-headers)
2918 ("gnus-agent" :interactive t
2919 gnus-unplugged gnus-agentize gnus-agent-batch)
2920 ("gnus-vm" :interactive t gnus-summary-save-in-vm
2921 gnus-summary-save-article-vm)
2923 ("gnus-draft" :interactive t gnus-draft-mode gnus-group-send-queue)
2924 ("gnus-mlspl" gnus-group-split gnus-group-split-fancy)
2925 ("gnus-mlspl" :interactive t gnus-group-split-setup
2926 gnus-group-split-update)
2927 ("gnus-delay" gnus-delay-initialize))))
2929 ;;; gnus-sum.el thingies
2932 (defcustom gnus-summary-line-format "%U%R%z%I%(%[%4L: %-23,23f%]%) %s\n"
2933 "*The format specification of the lines in the summary buffer.
2958 The variables `gnus-sum-thread-*' can be used for customization.
2978 be a letter. Gnus will call the function gnus-user-format-function-X,
2981 will be inserted into the summary just like information from any other
2982 summary specifier.
2988 you might not be arrested, but your summary buffer will look strange,
2997 See Info node `(gnus)Formatting Variables'."
2998 :link '(custom-manual "(gnus)Formatting Variables")
3000 :group 'gnus-summary-format)
3006 (defun gnus-suppress-keymap (keymap)
3008 (let ((keys `([backspace] [delete] "\177" "\M-u"))) ;gnus-mouse-2
3012 (defvar gnus-article-mode-map
3014 (gnus-suppress-keymap keymap)
3016 (defvar gnus-summary-mode-map
3018 (gnus-suppress-keymap keymap)
3020 (defvar gnus-group-mode-map
3022 (gnus-suppress-keymap keymap)
3031 (defalias 'gnus-summary-position-point 'gnus-goto-colon)
3032 (defalias 'gnus-group-position-point 'gnus-goto-colon)
3036 (defun gnus-header-from (header)
3039 (defmacro gnus-gethash (string hashtable)
3043 (defmacro gnus-gethash-safe (string hashtable)
3049 (defmacro gnus-sethash (string value hashtable)
3052 (put 'gnus-sethash 'edebug-form-spec '(form form form))
3054 (defmacro gnus-group-unread (group)
3056 `(car (gnus-gethash ,group gnus-newsrc-hashtb)))
3058 (defmacro gnus-group-entry (group)
3060 `(gnus-gethash ,group gnus-newsrc-hashtb))
3062 (defmacro gnus-active (group)
3064 `(gnus-gethash ,group gnus-active-hashtb))
3066 (defmacro gnus-set-active (group active)
3068 `(gnus-sethash ,group ,active gnus-active-hashtb))
3072 (defmacro gnus-info-group (info)
3074 (defmacro gnus-info-rank (info)
3076 (defmacro gnus-info-read (info)
3078 (defmacro gnus-info-marks (info)
3080 (defmacro gnus-info-method (info)
3082 (defmacro gnus-info-params (info)
3085 (defmacro gnus-info-level (info)
3086 `(let ((rank (gnus-info-rank ,info)))
3090 (defmacro gnus-info-score (info)
3091 `(let ((rank (gnus-info-rank ,info)))
3094 (defmacro gnus-info-set-group (info group)
3096 (defmacro gnus-info-set-rank (info rank)
3098 (defmacro gnus-info-set-read (info read)
3100 (defmacro gnus-info-set-marks (info marks &optional extend)
3102 `(gnus-info-set-entry ,info ,marks 3)
3104 (defmacro gnus-info-set-method (info method &optional extend)
3106 `(gnus-info-set-entry ,info ,method 4)
3108 (defmacro gnus-info-set-params (info params &optional extend)
3110 `(gnus-info-set-entry ,info ,params 5)
3113 (defun gnus-info-set-entry (info entry number)
3120 (defmacro gnus-info-set-level (info level)
3125 (defmacro gnus-info-set-score (info score)
3131 (defmacro gnus-get-info (group)
3132 `(nth 2 (gnus-gethash ,group gnus-newsrc-hashtb)))
3136 (require 'gnus-ems)
3144 (defvar gnus-shutdown-alist nil)
3146 (defun gnus-add-shutdown (function &rest symbols)
3148 (push (cons function symbols) gnus-shutdown-alist))
3150 (defun gnus-shutdown (symbol)
3152 (let ((alist gnus-shutdown-alist)
3164 (defun gnus-find-subscribed-addresses ()
3169 (dolist (entry (cdr gnus-newsrc-alist))
3171 (when (gnus-parameter-subscribed group)
3173 (or (gnus-group-fast-parameter group 'to-address)
3174 (gnus-group-fast-parameter group 'to-list))))
3180 (defmacro gnus-string-or (&rest strings)
3183 `(gnus-string-or-1 ',strings))
3185 (defun gnus-string-or-1 (strings)
3194 (defun gnus-version (&optional arg)
3199 (insert (message gnus-version))
3200 (message gnus-version)))
3202 (defun gnus-continuum-version (&optional version)
3206 (setq version gnus-version))
3208 (string-match "^\\(.?\\)gnus-\\([0-9.]+\\)$" version))
3233 (defun gnus-info-find-node (&optional nodename)
3237 (let (gnus-info-buffer)
3238 (Info-goto-node (or nodename (cadr (assq major-mode gnus-info-nodes))))
3239 (setq gnus-info-buffer (current-buffer))
3240 (gnus-configure-windows 'info)))
3243 ;;; gnus-interactive
3246 (defvar gnus-current-prefix-symbol nil
3249 (defvar gnus-current-prefix-symbols nil
3252 (defun gnus-interactive (string &optional params)
3310 'gnus-prefix-nil)
3323 gnus-current-prefix-symbol)
3325 gnus-current-prefix-symbols)
3327 (gnus-group-group-name))
3329 (gnus-summary-skip-intangible)
3330 (or (get-text-property (point) 'gnus-number)
3331 (gnus-summary-last-subject)))
3333 (gnus-data-header (gnus-data-find (gnus-summary-article-number))))
3341 (setq out (delq 'gnus-prefix-nil out))
3344 (defun gnus-symbolic-argument (&optional arg)
3349 gnus-current-prefix-symbols
3350 gnus-current-prefix-symbol
3356 (setq gnus-current-prefix-symbols (nreverse syms)
3357 gnus-current-prefix-symbol (car gnus-current-prefix-symbols))
3362 (defsubst gnus-check-backend-function (func group)
3367 (car (gnus-find-method-for-group group))
3373 (defun gnus-group-read-only-p (&optional group)
3375 If GROUP is nil, `gnus-newsgroup-name' will be checked instead. Note
3376 that that variable is buffer-local to the summary buffers."
3377 (let ((group (or group gnus-newsgroup-name)))
3378 (not (gnus-check-backend-function 'request-replace-article group))))
3380 (defun gnus-virtual-group-p (group)
3382 (memq 'virtual (assoc (symbol-name (car (gnus-find-method-for-group group)))
3383 gnus-valid-select-methods)))
3385 (defun gnus-news-group-p (group &optional article)
3387 (cond ((gnus-member-of-valid 'post group) ;Ordinary news group
3389 ((not (gnus-member-of-valid 'post-mail group)) ;Non-combined.
3392 (eq (gnus-request-type group (mail-header-id article)) 'news))
3394 (eq (gnus-request-type group) 'news)) ;(unknown ==> mail)
3398 (eq (gnus-request-type group article) 'news)))) ;use it.
3401 (defun gnus-writable-groups ()
3402 (let ((alist gnus-newsrc-alist)
3405 (unless (gnus-group-read-only-p group)
3410 (defun gnus-use-long-file-name (symbol)
3412 (and gnus-use-long-file-name
3414 (or (not (listp gnus-use-long-file-name))
3417 (not (memq symbol gnus-use-long-file-name)))))
3420 (defun gnus-generate-new-group-name (leaf)
3423 (while (gnus-gethash name gnus-newsrc-hashtb)
3427 (defun gnus-ephemeral-group-p (group)
3429 (gnus-group-get-parameter group 'quit-config t))
3431 (defun gnus-group-quit-config (group)
3433 (gnus-group-get-parameter group 'quit-config t))
3435 (defun gnus-kill-ephemeral-group (group)
3437 (gnus-sethash group nil gnus-newsrc-hashtb))
3439 (defun gnus-simplify-mode-line ()
3441 (setq mode-line-modified (cdr gnus-mode-line-modified))
3450 (defsubst gnus-server-add-address (method)
3452 (if (and (memq 'address (assoc method-name gnus-valid-select-methods))
3455 gnus-valid-select-methods)))
3460 (defsubst gnus-method-to-server (method)
3462 (setq method (or method gnus-select-method))
3468 gnus-server-method-cache)
3473 (when (gnus-methods-equal-p (cdr name-method) method)
3474 (unless (member name-method gnus-server-method-cache)
3475 (push name-method gnus-server-method-cache))
3478 (let ((alists (list gnus-server-alist
3479 gnus-predefined-server-alist)))
3480 (if gnus-select-method
3481 (push (list (cons "native" gnus-select-method)) alists))
3488 (unless (member name-method gnus-server-method-cache)
3489 (push name-method gnus-server-method-cache))
3492 (defsubst gnus-server-to-method (server)
3495 (cdr (assoc server gnus-server-method-cache))
3499 (and (equal server "native") gnus-select-method)
3501 (cdr (assoc server gnus-server-alist))
3503 (cdr (assoc server gnus-predefined-server-alist))
3506 (let ((opened gnus-opened-servers))
3513 (let ((servers gnus-secondary-select-methods))
3521 ;; of the entire gnus-newsrc-alist for the server name
3523 ;; gnus-server-method-cache so this only happens once,
3528 (let ((info-method (gnus-info-method info)))
3530 (let ((info-server (gnus-method-to-server info-method)))
3533 (cdr gnus-newsrc-alist))
3536 (push (cons server result) gnus-server-method-cache))
3539 (defsubst gnus-server-get-method (group method)
3543 (gnus-server-to-method method))
3544 ((equal method gnus-select-method)
3545 gnus-select-method)
3548 (gnus-server-extend-method group method))
3554 (gnus-server-add-address method))))
3556 (defmacro gnus-method-equal (ss1 ss2)
3567 (defun gnus-methods-equal-p (m1 m2)
3568 (let ((m1 (or m1 gnus-select-method))
3569 (m2 (or m2 gnus-select-method)))
3573 gnus-valid-select-methods)))
3576 (defun gnus-server-equal (m1 m2)
3578 (let ((m1 (cond ((null m1) gnus-select-method)
3579 ((stringp m1) (gnus-server-to-method m1))
3581 (m2 (cond ((null m2) gnus-select-method)
3582 ((stringp m2) (gnus-server-to-method m2))
3584 (gnus-method-equal m1 m2)))
3586 (defun gnus-servers-using-backend (backend)
3588 (let ((opened gnus-opened-servers)
3596 (defun gnus-archive-server-wanted-p ()
3599 ((or (not gnus-message-archive-method)
3600 (not gnus-message-archive-group))
3602 ((and gnus-message-archive-method gnus-message-archive-group)
3606 gnus-message-archive-method))))
3610 (defsubst gnus-method-to-server-name (method)
3615 (gnus-methods-using 'address))
3616 (gnus-server-equal method gnus-message-archive-method))
3621 (defsubst gnus-method-to-full-server-name (method)
3624 (defun gnus-group-prefixed-name (group method &optional full)
3629 (setq method (gnus-server-to-method method)))
3631 (and (not full) (gnus-server-equal method "native"))
3636 (concat (gnus-method-to-server-name method) ":" group)))
3638 (defun gnus-group-guess-prefixed-name (group)
3640 (gnus-group-prefixed-name group (gnus-find-method-for-group
3643 (defun gnus-group-full-name (group method)
3645 (gnus-group-prefixed-name group method t))
3647 (defun gnus-group-guess-full-name (group)
3649 (if (gnus-group-prefixed-p group)
3651 (gnus-group-full-name group (gnus-find-method-for-group group))))
3653 (defun gnus-group-guess-full-name-from-command-method (group)
3655 (if (gnus-group-prefixed-p group)
3657 (gnus-group-full-name group gnus-command-method)))
3659 (defun gnus-group-real-prefix (group)
3667 (defun gnus-group-short-name (group)
3669 (let ((prefix (gnus-group-real-prefix group)))
3674 (defun gnus-group-prefixed-p (group)
3676 (< 0 (length (gnus-group-real-prefix group))))
3678 (defun gnus-summary-buffer-name (group)
3679 "Return the summary buffer name of GROUP."
3680 (concat "*Summary " (gnus-group-decoded-name group) "*"))
3682 (defun gnus-group-method (group)
3684 You should probably use `gnus-find-method-for-group' instead."
3685 (let ((prefix (gnus-group-real-prefix group)))
3687 gnus-select-method
3688 (let ((servers gnus-opened-servers)
3701 (or (car (rassoc found gnus-server-alist))
3703 (car (rassoc possible gnus-server-alist))
3707 (defsubst gnus-native-method-p (method)
3709 (gnus-method-equal method gnus-select-method))
3711 (defsubst gnus-secondary-method-p (method)
3713 (let ((methods gnus-secondary-select-methods)
3714 (gmethod (inline (gnus-server-get-method nil method))))
3716 (not (gnus-method-equal
3717 (inline (gnus-server-get-method nil (car methods)))
3722 (defun gnus-method-simplify (method)
3726 ((gnus-native-method-p method)
3728 ((gnus-secondary-method-p method)
3733 (defun gnus-groups-from-server (server)
3735 (let ((alist (cdr gnus-newsrc-alist))
3738 (when (gnus-server-equal (gnus-info-method info) server)
3739 (push (gnus-info-group info) groups)))
3742 (defun gnus-group-foreign-p (group)
3744 (and (not (gnus-group-native-p group))
3745 (not (gnus-group-secondary-p group))))
3747 (defun gnus-group-native-p (group)
3751 (defun gnus-group-secondary-p (group)
3753 (gnus-secondary-method-p (gnus-find-method-for-group group)))
3755 (defun gnus-parameters-get-parameter (group)
3756 "Return the group parameters for GROUP from `gnus-parameters'."
3757 (let ((case-fold-search (if (eq gnus-parameters-case-fold-search 'default)
3759 gnus-parameters-case-fold-search))
3761 (dolist (elem gnus-parameters)
3764 (nconc (gnus-expand-group-parameters
3769 (defun gnus-expand-group-parameter (match value group)
3778 (defun gnus-expand-group-parameters (match parameters group)
3785 (gnus-expand-group-parameter match (cdr elem) group))
3790 (defun gnus-group-fast-parameter (group symbol &optional allow-list)
3793 You should call this in the `gnus-group-buffer' buffer.
3794 The function `gnus-group-find-parameter' will do that for you."
3796 (let* ((params (funcall gnus-group-get-parameter-function group))
3799 (gnus-group-parameter-value params symbol allow-list t)))
3803 ;; We didn't found it there, try `gnus-parameters'.
3806 (tail gnus-parameters))
3814 (setq result (gnus-group-parameter-value (cdr head)
3819 (setq result (gnus-expand-group-parameter (car head)
3826 (defun gnus-group-find-parameter (group &optional symbol allow-list)
3831 `gnus-group-fast-parameter' instead."
3833 (set-buffer gnus-group-buffer)
3835 (gnus-group-fast-parameter group symbol allow-list)
3838 (funcall gnus-group-get-parameter-function group))
3839 (gnus-parameters-get-parameter group)))))
3841 (defun gnus-group-get-parameter (group &optional symbol allow-list)
3845 Most functions should use `gnus-group-find-parameter', which
3847 (let ((params (gnus-info-params (gnus-get-info group))))
3849 (gnus-group-parameter-value params symbol allow-list)
3852 (defun gnus-group-parameter-value (params symbol &optional
3871 (defun gnus-group-add-parameter (group param)
3873 (let ((info (gnus-get-info group)))
3875 (gnus-group-remove-parameter group (if (consp param) (car param) param))
3877 (gnus-group-set-info (cons param (gnus-info-params info))
3880 (defun gnus-group-set-parameter (group name value)
3882 (let ((info (gnus-get-info group)))
3884 (gnus-group-remove-parameter group name)
3885 (let ((old-params (gnus-info-params info))
3892 (gnus-group-set-info new-params group 'params)))))
3894 (defun gnus-group-remove-parameter (group name)
3896 (let ((info (gnus-get-info group)))
3898 (let ((params (gnus-info-params info)))
3902 (gnus-pull name params))
3903 (gnus-info-set-params info params))))))
3905 (defun gnus-group-add-score (group &optional score)
3908 (let ((info (gnus-get-info group)))
3910 (gnus-info-set-score info (+ (gnus-info-score info) (or score 1))))))
3912 (defun gnus-short-group-name (group &optional levels)
3921 gnus-group-uncollapsed-levels
3967 (defun gnus-narrow-to-body ()
3982 (defun gnus-apply-kill-file ()
3985 (if (or (file-exists-p (gnus-newsgroup-kill-file nil))
3986 (file-exists-p (gnus-newsgroup-kill-file gnus-newsgroup-name)))
3987 (gnus-apply-kill-file-internal)
3990 (defun gnus-kill-save-kill-buffer ()
3991 (let ((file (gnus-newsgroup-kill-file gnus-newsgroup-name)))
3999 (defcustom gnus-kill-file-name "KILL"
4001 :group 'gnus-score-kill
4002 :group 'gnus-score-files
4005 (defun gnus-newsgroup-kill-file (newsgroup)
4012 (expand-file-name gnus-kill-file-name
4013 gnus-kill-files-directory))
4015 ((gnus-use-long-file-name 'not-kill)
4016 (expand-file-name (concat (gnus-newsgroup-savable-name newsgroup)
4017 "." gnus-kill-file-name)
4018 gnus-kill-files-directory))
4021 (expand-file-name (concat (gnus-newsgroup-directory-form newsgroup)
4022 "/" gnus-kill-file-name)
4023 gnus-kill-files-directory))))
4027 (defun gnus-member-of-valid (symbol group)
4030 (symbol-name (car (gnus-find-method-for-group group)))
4031 gnus-valid-select-methods)))
4033 (defun gnus-method-option-p (method option)
4036 (setq method (gnus-server-to-method method)))
4038 gnus-valid-select-methods)))
4040 (defun gnus-similar-server-opened (method)
4041 (let ((opened gnus-opened-servers))
4050 (defun gnus-server-extend-method (group method)
4055 (if (or (not (inline (gnus-similar-server-opened method)))
4062 (defun gnus-server-status (method)
4064 (nth 1 (assoc method gnus-opened-servers)))
4066 (defun gnus-group-name-to-method (group)
4074 gnus-select-method))
4076 (defun gnus-server-string (server)
4078 (let* ((server (gnus-server-to-method server))
4085 (defun gnus-find-method-for-group (group &optional info)
4087 (or gnus-override-method
4089 gnus-select-method)
4090 (and (not (gnus-group-entry group))
4094 (gnus-server-to-method (gnus-group-server group))
4096 (gnus-group-name-to-method group)))
4097 (let ((info (or info (gnus-get-info group)))
4100 (not (setq method (gnus-info-method info)))
4102 gnus-select-method
4105 (inline (gnus-server-to-method method)))
4107 (inline (gnus-server-extend-method group method)))
4115 (gnus-server-add-address method)))))))
4117 (defun gnus-methods-using (feature)
4119 (let ((valids gnus-valid-select-methods)
4130 (defun gnus-read-group (prompt &optional default)
4137 gnus-invalid-group-regexp
4140 'gnus-group-history)))
4152 You may customize the variable `gnus-invalid-group-regexp', which currently is
4153 set to \"" gnus-invalid-group-regexp
4159 (defun gnus-read-method (prompt)
4164 gnus-opened-servers))
4167 (dolist (method gnus-valid-select-methods)
4175 gnus-predefined-server-alist
4176 gnus-server-alist))
4180 nil t nil 'gnus-method-history)))
4183 (setq method gnus-select-method))
4184 ((assoc method gnus-valid-select-methods)
4186 (assoc method gnus-valid-select-methods))
4198 (defun gnus-agent-method-p (method)
4200 (or (eq (car gnus-agent-method-p-cache) method)
4201 (setq gnus-agent-method-p-cache
4205 (gnus-method-to-server method)) gnus-agent-covered-methods))))
4206 (cdr gnus-agent-method-p-cache))
4208 (defun gnus-online (method)
4210 (if gnus-plugged
4211 (eq (cadr (assoc method gnus-opened-servers)) 'offline)
4212 (gnus-agent-method-p method))))
4217 (defun gnus-slave-no-server (&optional arg)
4220 (gnus-no-server arg t))
4223 (defun gnus-no-server (&optional arg slave)
4229 As opposed to `gnus', this command will not connect to the local
4232 (gnus-no-server-1 arg slave))
4235 (defun gnus-slave (&optional arg)
4238 (gnus arg nil 'slave))
4241 (defun gnus-other-frame (&optional arg display)
4244 option `gnus-other-frame-function' (default `gnus') with the argument
4253 (setq display (gnus-frame-or-window-display-name (selected-frame))))
4255 (let ((alive (gnus-alive-p)))
4262 (gnus-frame-or-window-display-name
4265 (string-match "\\`gnus-"
4267 (gnus-select-frame-set-input-focus
4268 (setq gnus-other-frame-object (window-frame window)))
4272 (gnus-select-frame-set-input-focus
4273 (setq gnus-other-frame-object
4275 (make-frame-on-display display gnus-other-frame-parameters)
4276 (make-frame gnus-other-frame-parameters))))
4278 (switch-to-buffer gnus-group-buffer)
4279 (funcall gnus-other-frame-function arg)
4280 (add-hook 'gnus-exit-gnus-hook
4282 (when (and (frame-live-p gnus-other-frame-object)
4284 (delete-frame gnus-other-frame-object))
4285 (setq gnus-other-frame-object nil)))))))
4288 (defun gnus (&optional arg dont-connect slave)
4294 (unless (byte-code-function-p (symbol-function 'gnus))
4297 (gnus-1 arg dont-connect slave))
4301 (gnus-ems-redefine)
4303 (provide 'gnus)
4306 ;;; gnus.el ends here