1 ;;; gnus.el --- a newsreader for GNU Emacs
3 ;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997,
4 ;; 1998, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
5 ;; 2010 Free Software Foundation, Inc.
7 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
8 ;; Lars Magne Ingebrigtsen <larsi@gnus.org>
9 ;; Keywords: news, mail
11 ;; This file is part of GNU Emacs.
13 ;; GNU Emacs is free software: you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by
15 ;; the Free Software Foundation, either version 3 of the License, or
16 ;; (at your option) any later version.
18 ;; GNU Emacs is distributed in the hope that it will be useful,
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 ;; GNU General Public License for more details.
23 ;; You should have received a copy of the GNU General Public License
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
30 (eval '(run-hooks 'gnus-load-hook))
32 ;; For Emacs <22.2 and XEmacs.
34 (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
36 (eval-when-compile (require 'cl))
41 ;; These are defined afterwards with gnus-define-group-parameter
42 (defvar gnus-ham-process-destinations)
43 (defvar gnus-parameter-ham-marks-alist)
44 (defvar gnus-parameter-spam-marks-alist)
45 (defvar gnus-spam-autodetect)
46 (defvar gnus-spam-autodetect-methods)
47 (defvar gnus-spam-newsgroup-contents)
48 (defvar gnus-spam-process-destinations)
49 (defvar gnus-spam-resend-to)
50 (defvar gnus-ham-resend-to)
51 (defvar gnus-spam-process-newsgroups)
55 "The coffee-brewing, all singing, all dancing, kitchen sink newsreader."
59 (defgroup gnus-start nil
60 "Starting your favorite newsreader."
63 (defgroup gnus-format nil
64 "Dealing with formatting issues."
67 (defgroup gnus-charset nil
68 "Group character set issues."
69 :link '(custom-manual "(gnus)Charsets")
73 (defgroup gnus-cache nil
75 :link '(custom-manual "(gnus)Article Caching")
78 (defgroup gnus-registry nil
82 (defgroup gnus-start-server nil
83 "Server options at startup."
86 ;; These belong to gnus-group.el.
87 (defgroup gnus-group nil
89 :link '(custom-manual "(gnus)Group Buffer")
92 (defgroup gnus-group-foreign nil
94 :link '(custom-manual "(gnus)Foreign Groups")
97 (defgroup gnus-group-new nil
98 "Automatic subscription of new groups."
101 (defgroup gnus-group-levels nil
103 :link '(custom-manual "(gnus)Group Levels")
106 (defgroup gnus-group-select nil
108 :link '(custom-manual "(gnus)Selecting a Group")
111 (defgroup gnus-group-listing nil
112 "Showing slices of the group list."
113 :link '(custom-manual "(gnus)Listing Groups")
116 (defgroup gnus-group-visual nil
117 "Sorting the group buffer."
118 :link '(custom-manual "(gnus)Group Buffer Format")
122 (defgroup gnus-group-various nil
123 "Various group options."
124 :link '(custom-manual "(gnus)Scanning New Messages")
127 ;; These belong to gnus-sum.el.
128 (defgroup gnus-summary nil
130 :link '(custom-manual "(gnus)Summary Buffer")
133 (defgroup gnus-summary-exit nil
134 "Leaving summary buffers."
135 :link '(custom-manual "(gnus)Exiting the Summary Buffer")
136 :group 'gnus-summary)
138 (defgroup gnus-summary-marks nil
139 "Marks used in summary buffers."
140 :link '(custom-manual "(gnus)Marking Articles")
141 :group 'gnus-summary)
143 (defgroup gnus-thread nil
144 "Ordering articles according to replies."
145 :link '(custom-manual "(gnus)Threading")
146 :group 'gnus-summary)
148 (defgroup gnus-summary-format nil
149 "Formatting of the summary buffer."
150 :link '(custom-manual "(gnus)Summary Buffer Format")
151 :group 'gnus-summary)
153 (defgroup gnus-summary-choose nil
155 :link '(custom-manual "(gnus)Choosing Articles")
156 :group 'gnus-summary)
158 (defgroup gnus-summary-maneuvering nil
159 "Summary movement commands."
160 :link '(custom-manual "(gnus)Summary Maneuvering")
161 :group 'gnus-summary)
163 (defgroup gnus-picon nil
164 "Show pictures of people, domains, and newsgroups."
167 (defgroup gnus-summary-mail nil
168 "Mail group commands."
169 :link '(custom-manual "(gnus)Mail Group Commands")
170 :group 'gnus-summary)
172 (defgroup gnus-summary-sort nil
173 "Sorting the summary buffer."
174 :link '(custom-manual "(gnus)Sorting the Summary Buffer")
175 :group 'gnus-summary)
177 (defgroup gnus-summary-visual nil
178 "Highlighting and menus in the summary buffer."
179 :link '(custom-manual "(gnus)Summary Highlighting")
181 :group 'gnus-summary)
183 (defgroup gnus-summary-various nil
184 "Various summary buffer options."
185 :link '(custom-manual "(gnus)Various Summary Stuff")
186 :group 'gnus-summary)
188 (defgroup gnus-summary-pick nil
189 "Pick mode in the summary buffer."
190 :link '(custom-manual "(gnus)Pick and Read")
192 :group 'gnus-summary)
194 (defgroup gnus-summary-tree nil
195 "Tree display of threads in the summary buffer."
196 :link '(custom-manual "(gnus)Tree Display")
198 :group 'gnus-summary)
200 ;; Belongs to gnus-uu.el
201 (defgroup gnus-extract-view nil
202 "Viewing extracted files."
203 :link '(custom-manual "(gnus)Viewing Files")
204 :group 'gnus-extract)
206 ;; Belongs to gnus-score.el
207 (defgroup gnus-score nil
208 "Score and kill file handling."
211 (defgroup gnus-score-kill nil
215 (defgroup gnus-score-adapt nil
216 "Adaptive score files."
219 (defgroup gnus-score-default nil
220 "Default values for score files."
223 (defgroup gnus-score-expire nil
224 "Expiring score rules."
227 (defgroup gnus-score-decay nil
228 "Decaying score rules."
231 (defgroup gnus-score-files nil
232 "Score and kill file names."
236 (defgroup gnus-score-various nil
237 "Various scoring and killing options."
241 (defgroup gnus-visual nil
242 "Options controlling the visual fluff."
246 (defgroup gnus-agent nil
247 "Offline support for Gnus."
250 (defgroup gnus-files nil
251 "Files used by Gnus."
254 (defgroup gnus-dribble-file nil
256 :link '(custom-manual "(gnus)Auto Save")
259 (defgroup gnus-newsrc nil
260 "Storing Gnus state."
263 (defgroup gnus-server nil
264 "Options related to newsservers and other servers used by Gnus."
267 (defgroup gnus-server-visual nil
268 "Highlighting and menus in the server buffer."
272 (defgroup gnus-message '((message custom-group))
273 "Composing replies and followups in Gnus."
276 (defgroup gnus-meta nil
277 "Meta variables controlling major portions of Gnus.
278 In general, modifying these variables does not take affect until Gnus
279 is restarted, and sometimes reloaded."
282 (defgroup gnus-various nil
283 "Other Gnus options."
284 :link '(custom-manual "(gnus)Various Various")
287 (defgroup gnus-exit nil
289 :link '(custom-manual "(gnus)Exiting Gnus")
292 (defgroup gnus-fun nil
293 "Frivolous Gnus extensions."
294 :link '(custom-manual "(gnus)Exiting Gnus")
297 (defconst gnus-version-number "0.11"
298 "Version number for this version of Gnus.")
300 (defconst gnus-version (format "No Gnus v%s" gnus-version-number)
301 "Version string for this version of Gnus.")
303 (defcustom gnus-inhibit-startup-message nil
304 "If non-nil, the startup message will not be displayed.
305 This variable is used before `.gnus.el' is loaded, so it should
306 be set in `.emacs' instead."
310 (unless (featurep 'gnus-xmas)
311 (defalias 'gnus-make-overlay 'make-overlay)
312 (defalias 'gnus-delete-overlay 'delete-overlay)
313 (defalias 'gnus-overlay-get 'overlay-get)
314 (defalias 'gnus-overlay-put 'overlay-put)
315 (defalias 'gnus-move-overlay 'move-overlay)
316 (defalias 'gnus-overlay-buffer 'overlay-buffer)
317 (defalias 'gnus-overlay-start 'overlay-start)
318 (defalias 'gnus-overlay-end 'overlay-end)
319 (defalias 'gnus-overlays-in 'overlays-in)
320 (defalias 'gnus-extent-detached-p 'ignore)
321 (defalias 'gnus-extent-start-open 'ignore)
322 (defalias 'gnus-mail-strip-quoted-names 'mail-strip-quoted-names)
323 (defalias 'gnus-character-to-event 'identity)
324 (defalias 'gnus-assq-delete-all 'assq-delete-all)
325 (defalias 'gnus-add-text-properties 'add-text-properties)
326 (defalias 'gnus-put-text-property 'put-text-property)
327 (defvar gnus-mode-line-image-cache t)
328 (if (fboundp 'find-image)
329 (defun gnus-mode-line-buffer-identification (line)
330 (let ((str (car-safe line))
331 (load-path (mm-image-load-path)))
332 (if (and (stringp str)
333 (string-match "^Gnus:" str))
334 (progn (add-text-properties
337 (if (eq t gnus-mode-line-image-cache)
338 (setq gnus-mode-line-image-cache
340 '((:type xpm :file "gnus-pointer.xpm"
342 (:type xbm :file "gnus-pointer.xbm"
344 gnus-mode-line-image-cache)
347 gnus-version (gnus-emacs-version)))
351 (defalias 'gnus-mode-line-buffer-identification 'identity))
352 (defalias 'gnus-deactivate-mark 'deactivate-mark)
353 (defalias 'gnus-window-edges 'window-edges)
354 (defalias 'gnus-key-press-event-p 'numberp)
355 ;;(defalias 'gnus-decode-rfc1522 'ignore)
358 ;; We define these group faces here to avoid the display
359 ;; update forced when creating new faces.
361 (defface gnus-group-news-1
364 (:foreground "PaleTurquoise" :bold t))
367 (:foreground "ForestGreen" :bold t))
370 "Level 1 newsgroup face."
372 ;; backward-compatibility alias
373 (put 'gnus-group-news-1-face 'face-alias 'gnus-group-news-1)
374 (put 'gnus-group-news-1-face 'obsolete-face "22.1")
376 (defface gnus-group-news-1-empty
379 (:foreground "PaleTurquoise"))
382 (:foreground "ForestGreen"))
385 "Level 1 empty newsgroup face."
387 ;; backward-compatibility alias
388 (put 'gnus-group-news-1-empty-face 'face-alias 'gnus-group-news-1-empty)
389 (put 'gnus-group-news-1-empty-face 'obsolete-face "22.1")
391 (defface gnus-group-news-2
394 (:foreground "turquoise" :bold t))
397 (:foreground "CadetBlue4" :bold t))
400 "Level 2 newsgroup face."
402 ;; backward-compatibility alias
403 (put 'gnus-group-news-2-face 'face-alias 'gnus-group-news-2)
404 (put 'gnus-group-news-2-face 'obsolete-face "22.1")
406 (defface gnus-group-news-2-empty
409 (:foreground "turquoise"))
412 (:foreground "CadetBlue4"))
415 "Level 2 empty newsgroup face."
417 ;; backward-compatibility alias
418 (put 'gnus-group-news-2-empty-face 'face-alias 'gnus-group-news-2-empty)
419 (put 'gnus-group-news-2-empty-face 'obsolete-face "22.1")
421 (defface gnus-group-news-3
430 "Level 3 newsgroup face."
432 ;; backward-compatibility alias
433 (put 'gnus-group-news-3-face 'face-alias 'gnus-group-news-3)
434 (put 'gnus-group-news-3-face 'obsolete-face "22.1")
436 (defface gnus-group-news-3-empty
445 "Level 3 empty newsgroup face."
447 ;; backward-compatibility alias
448 (put 'gnus-group-news-3-empty-face 'face-alias 'gnus-group-news-3-empty)
449 (put 'gnus-group-news-3-empty-face 'obsolete-face "22.1")
451 (defface gnus-group-news-4
460 "Level 4 newsgroup face."
462 ;; backward-compatibility alias
463 (put 'gnus-group-news-4-face 'face-alias 'gnus-group-news-4)
464 (put 'gnus-group-news-4-face 'obsolete-face "22.1")
466 (defface gnus-group-news-4-empty
475 "Level 4 empty newsgroup face."
477 ;; backward-compatibility alias
478 (put 'gnus-group-news-4-empty-face 'face-alias 'gnus-group-news-4-empty)
479 (put 'gnus-group-news-4-empty-face 'obsolete-face "22.1")
481 (defface gnus-group-news-5
490 "Level 5 newsgroup face."
492 ;; backward-compatibility alias
493 (put 'gnus-group-news-5-face 'face-alias 'gnus-group-news-5)
494 (put 'gnus-group-news-5-face 'obsolete-face "22.1")
496 (defface gnus-group-news-5-empty
505 "Level 5 empty newsgroup face."
507 ;; backward-compatibility alias
508 (put 'gnus-group-news-5-empty-face 'face-alias 'gnus-group-news-5-empty)
509 (put 'gnus-group-news-5-empty-face 'obsolete-face "22.1")
511 (defface gnus-group-news-6
520 "Level 6 newsgroup face."
522 ;; backward-compatibility alias
523 (put 'gnus-group-news-6-face 'face-alias 'gnus-group-news-6)
524 (put 'gnus-group-news-6-face 'obsolete-face "22.1")
526 (defface gnus-group-news-6-empty
535 "Level 6 empty newsgroup face."
537 ;; backward-compatibility alias
538 (put 'gnus-group-news-6-empty-face 'face-alias 'gnus-group-news-6-empty)
539 (put 'gnus-group-news-6-empty-face 'obsolete-face "22.1")
541 (defface gnus-group-news-low
544 (:foreground "DarkTurquoise" :bold t))
547 (:foreground "DarkGreen" :bold t))
550 "Low level newsgroup face."
552 ;; backward-compatibility alias
553 (put 'gnus-group-news-low-face 'face-alias 'gnus-group-news-low)
554 (put 'gnus-group-news-low-face 'obsolete-face "22.1")
556 (defface gnus-group-news-low-empty
559 (:foreground "DarkTurquoise"))
562 (:foreground "DarkGreen"))
565 "Low level empty newsgroup face."
567 ;; backward-compatibility alias
568 (put 'gnus-group-news-low-empty-face 'face-alias 'gnus-group-news-low-empty)
569 (put 'gnus-group-news-low-empty-face 'obsolete-face "22.1")
571 (defface gnus-group-mail-1
574 (:foreground "#e1ffe1" :bold t))
577 (:foreground "DeepPink3" :bold t))
580 "Level 1 mailgroup face."
582 ;; backward-compatibility alias
583 (put 'gnus-group-mail-1-face 'face-alias 'gnus-group-mail-1)
584 (put 'gnus-group-mail-1-face 'obsolete-face "22.1")
586 (defface gnus-group-mail-1-empty
589 (:foreground "#e1ffe1"))
592 (:foreground "DeepPink3"))
594 (:italic t :bold t)))
595 "Level 1 empty mailgroup face."
597 ;; backward-compatibility alias
598 (put 'gnus-group-mail-1-empty-face 'face-alias 'gnus-group-mail-1-empty)
599 (put 'gnus-group-mail-1-empty-face 'obsolete-face "22.1")
601 (defface gnus-group-mail-2
604 (:foreground "DarkSeaGreen1" :bold t))
607 (:foreground "HotPink3" :bold t))
610 "Level 2 mailgroup face."
612 ;; backward-compatibility alias
613 (put 'gnus-group-mail-2-face 'face-alias 'gnus-group-mail-2)
614 (put 'gnus-group-mail-2-face 'obsolete-face "22.1")
616 (defface gnus-group-mail-2-empty
619 (:foreground "DarkSeaGreen1"))
622 (:foreground "HotPink3"))
625 "Level 2 empty mailgroup face."
627 ;; backward-compatibility alias
628 (put 'gnus-group-mail-2-empty-face 'face-alias 'gnus-group-mail-2-empty)
629 (put 'gnus-group-mail-2-empty-face 'obsolete-face "22.1")
631 (defface gnus-group-mail-3
634 (:foreground "aquamarine1" :bold t))
637 (:foreground "magenta4" :bold t))
640 "Level 3 mailgroup face."
642 ;; backward-compatibility alias
643 (put 'gnus-group-mail-3-face 'face-alias 'gnus-group-mail-3)
644 (put 'gnus-group-mail-3-face 'obsolete-face "22.1")
646 (defface gnus-group-mail-3-empty
649 (:foreground "aquamarine1"))
652 (:foreground "magenta4"))
655 "Level 3 empty mailgroup face."
657 ;; backward-compatibility alias
658 (put 'gnus-group-mail-3-empty-face 'face-alias 'gnus-group-mail-3-empty)
659 (put 'gnus-group-mail-3-empty-face 'obsolete-face "22.1")
661 (defface gnus-group-mail-low
664 (:foreground "aquamarine2" :bold t))
667 (:foreground "DeepPink4" :bold t))
670 "Low level mailgroup face."
672 ;; backward-compatibility alias
673 (put 'gnus-group-mail-low-face 'face-alias 'gnus-group-mail-low)
674 (put 'gnus-group-mail-low-face 'obsolete-face "22.1")
676 (defface gnus-group-mail-low-empty
679 (:foreground "aquamarine2"))
682 (:foreground "DeepPink4"))
685 "Low level empty mailgroup face."
687 ;; backward-compatibility alias
688 (put 'gnus-group-mail-low-empty-face 'face-alias 'gnus-group-mail-low-empty)
689 (put 'gnus-group-mail-low-empty-face 'obsolete-face "22.1")
691 ;; Summary mode faces.
693 (defface gnus-summary-selected '((t (:underline t)))
694 "Face used for selected articles."
695 :group 'gnus-summary)
696 ;; backward-compatibility alias
697 (put 'gnus-summary-selected-face 'face-alias 'gnus-summary-selected)
698 (put 'gnus-summary-selected-face 'obsolete-face "22.1")
700 (defface gnus-summary-cancelled
702 (:foreground "yellow" :background "black")))
703 "Face used for cancelled articles."
704 :group 'gnus-summary)
705 ;; backward-compatibility alias
706 (put 'gnus-summary-cancelled-face 'face-alias 'gnus-summary-cancelled)
707 (put 'gnus-summary-cancelled-face 'obsolete-face "22.1")
709 (defface gnus-summary-high-ticked
712 (:foreground "pink" :bold t))
715 (:foreground "firebrick" :bold t))
718 "Face used for high interest ticked articles."
719 :group 'gnus-summary)
720 ;; backward-compatibility alias
721 (put 'gnus-summary-high-ticked-face 'face-alias 'gnus-summary-high-ticked)
722 (put 'gnus-summary-high-ticked-face 'obsolete-face "22.1")
724 (defface gnus-summary-low-ticked
727 (:foreground "pink" :italic t))
730 (:foreground "firebrick" :italic t))
733 "Face used for low interest ticked articles."
734 :group 'gnus-summary)
735 ;; backward-compatibility alias
736 (put 'gnus-summary-low-ticked-face 'face-alias 'gnus-summary-low-ticked)
737 (put 'gnus-summary-low-ticked-face 'obsolete-face "22.1")
739 (defface gnus-summary-normal-ticked
742 (:foreground "pink"))
745 (:foreground "firebrick"))
748 "Face used for normal interest ticked articles."
749 :group 'gnus-summary)
750 ;; backward-compatibility alias
751 (put 'gnus-summary-normal-ticked-face 'face-alias 'gnus-summary-normal-ticked)
752 (put 'gnus-summary-normal-ticked-face 'obsolete-face "22.1")
754 (defface gnus-summary-high-ancient
757 (:foreground "SkyBlue" :bold t))
760 (:foreground "RoyalBlue" :bold t))
763 "Face used for high interest ancient articles."
764 :group 'gnus-summary)
765 ;; backward-compatibility alias
766 (put 'gnus-summary-high-ancient-face 'face-alias 'gnus-summary-high-ancient)
767 (put 'gnus-summary-high-ancient-face 'obsolete-face "22.1")
769 (defface gnus-summary-low-ancient
772 (:foreground "SkyBlue" :italic t))
775 (:foreground "RoyalBlue" :italic t))
778 "Face used for low interest ancient articles."
779 :group 'gnus-summary)
780 ;; backward-compatibility alias
781 (put 'gnus-summary-low-ancient-face 'face-alias 'gnus-summary-low-ancient)
782 (put 'gnus-summary-low-ancient-face 'obsolete-face "22.1")
784 (defface gnus-summary-normal-ancient
787 (:foreground "SkyBlue"))
790 (:foreground "RoyalBlue"))
793 "Face used for normal interest ancient articles."
794 :group 'gnus-summary)
795 ;; backward-compatibility alias
796 (put 'gnus-summary-normal-ancient-face 'face-alias 'gnus-summary-normal-ancient)
797 (put 'gnus-summary-normal-ancient-face 'obsolete-face "22.1")
799 (defface gnus-summary-high-undownloaded
802 (:bold t :foreground "cyan4"))
803 (((class color) (background dark))
804 (:bold t :foreground "LightGray"))
805 (t (:inverse-video t :bold t)))
806 "Face used for high interest uncached articles."
807 :group 'gnus-summary)
808 ;; backward-compatibility alias
809 (put 'gnus-summary-high-undownloaded-face 'face-alias 'gnus-summary-high-undownloaded)
810 (put 'gnus-summary-high-undownloaded-face 'obsolete-face "22.1")
812 (defface gnus-summary-low-undownloaded
815 (:italic t :foreground "cyan4" :bold nil))
816 (((class color) (background dark))
817 (:italic t :foreground "LightGray" :bold nil))
818 (t (:inverse-video t :italic t)))
819 "Face used for low interest uncached articles."
820 :group 'gnus-summary)
821 ;; backward-compatibility alias
822 (put 'gnus-summary-low-undownloaded-face 'face-alias 'gnus-summary-low-undownloaded)
823 (put 'gnus-summary-low-undownloaded-face 'obsolete-face "22.1")
825 (defface gnus-summary-normal-undownloaded
828 (:foreground "cyan4" :bold nil))
829 (((class color) (background dark))
830 (:foreground "LightGray" :bold nil))
831 (t (:inverse-video t)))
832 "Face used for normal interest uncached articles."
833 :group 'gnus-summary)
834 ;; backward-compatibility alias
835 (put 'gnus-summary-normal-undownloaded-face 'face-alias 'gnus-summary-normal-undownloaded)
836 (put 'gnus-summary-normal-undownloaded-face 'obsolete-face "22.1")
838 (defface gnus-summary-high-unread
841 "Face used for high interest unread articles."
842 :group 'gnus-summary)
843 ;; backward-compatibility alias
844 (put 'gnus-summary-high-unread-face 'face-alias 'gnus-summary-high-unread)
845 (put 'gnus-summary-high-unread-face 'obsolete-face "22.1")
847 (defface gnus-summary-low-unread
850 "Face used for low interest unread articles."
851 :group 'gnus-summary)
852 ;; backward-compatibility alias
853 (put 'gnus-summary-low-unread-face 'face-alias 'gnus-summary-low-unread)
854 (put 'gnus-summary-low-unread-face 'obsolete-face "22.1")
856 (defface gnus-summary-normal-unread
859 "Face used for normal interest unread articles."
860 :group 'gnus-summary)
861 ;; backward-compatibility alias
862 (put 'gnus-summary-normal-unread-face 'face-alias 'gnus-summary-normal-unread)
863 (put 'gnus-summary-normal-unread-face 'obsolete-face "22.1")
865 (defface gnus-summary-high-read
868 (:foreground "PaleGreen"
872 (:foreground "DarkGreen"
876 "Face used for high interest read articles."
877 :group 'gnus-summary)
878 ;; backward-compatibility alias
879 (put 'gnus-summary-high-read-face 'face-alias 'gnus-summary-high-read)
880 (put 'gnus-summary-high-read-face 'obsolete-face "22.1")
882 (defface gnus-summary-low-read
885 (:foreground "PaleGreen"
889 (:foreground "DarkGreen"
893 "Face used for low interest read articles."
894 :group 'gnus-summary)
895 ;; backward-compatibility alias
896 (put 'gnus-summary-low-read-face 'face-alias 'gnus-summary-low-read)
897 (put 'gnus-summary-low-read-face 'obsolete-face "22.1")
899 (defface gnus-summary-normal-read
902 (:foreground "PaleGreen"))
905 (:foreground "DarkGreen"))
908 "Face used for normal interest read articles."
909 :group 'gnus-summary)
910 ;; backward-compatibility alias
911 (put 'gnus-summary-normal-read-face 'face-alias 'gnus-summary-normal-read)
912 (put 'gnus-summary-normal-read-face 'obsolete-face "22.1")
919 (defvar gnus-buffers nil
920 "List of buffers handled by Gnus.")
922 (defun gnus-get-buffer-create (name)
923 "Do the same as `get-buffer-create', but store the created buffer."
924 (or (get-buffer name)
925 (car (push (get-buffer-create name) gnus-buffers))))
927 (defun gnus-add-buffer ()
928 "Add the current buffer to the list of Gnus buffers."
929 (push (current-buffer) gnus-buffers))
931 (defmacro gnus-kill-buffer (buffer)
932 "Kill BUFFER and remove from the list of Gnus buffers."
933 `(let ((buf ,buffer))
934 (when (gnus-buffer-exists-p buf)
935 (setq gnus-buffers (delete (get-buffer buf) gnus-buffers))
938 (defun gnus-buffers ()
939 "Return a list of live Gnus buffers."
940 (while (and gnus-buffers
941 (not (buffer-name (car gnus-buffers))))
943 (let ((buffers gnus-buffers))
945 (if (buffer-name (cadr buffers))
947 (setcdr buffers (cddr buffers)))))
952 (defvar gnus-group-buffer "*Group*"
953 "Name of the Gnus group buffer.")
958 (:foreground "#cccccc"))
961 (:foreground "#888888"))
964 "Face for the splash screen."
966 ;; backward-compatibility alias
967 (put 'gnus-splash-face 'face-alias 'gnus-splash)
968 (put 'gnus-splash-face 'obsolete-face "22.1")
970 (defun gnus-splash ()
972 (switch-to-buffer (gnus-get-buffer-create gnus-group-buffer))
973 (let ((buffer-read-only nil))
975 (unless gnus-inhibit-startup-message
976 (gnus-group-startup-message)
979 (defun gnus-indent-rigidly (start end arg)
980 "Indent rigidly using only spaces and no tabs."
983 (narrow-to-region start end)
985 (indent-rigidly start end arg)
986 ;; We translate tabs into spaces -- not everybody uses
987 ;; an 8-character tab.
988 (goto-char (point-min))
989 (while (search-forward "\t" nil t)
990 (replace-match " " t t))))))
992 ;;(format "%02x%02x%02x" 114 66 20) "724214"
994 (defvar gnus-logo-color-alist
995 '((flame "#cc3300" "#ff2200")
996 (pine "#c0cc93" "#f8ffb8")
997 (moss "#a1cc93" "#d2ffb8")
998 (irish "#04cc90" "#05ff97")
999 (sky "#049acc" "#05deff")
1000 (tin "#6886cc" "#82b6ff")
1001 (velvet "#7c68cc" "#8c82ff")
1002 (grape "#b264cc" "#cf7df")
1003 (labia "#cc64c2" "#fd7dff")
1004 (berry "#cc6485" "#ff7db5")
1005 (dino "#724214" "#1e3f03")
1006 (oort "#cccccc" "#888888")
1007 (storm "#666699" "#99ccff")
1008 (pdino "#9999cc" "#99ccff")
1009 (purp "#9999cc" "#666699")
1010 (no "#ff0000" "#ffff00")
1011 (neutral "#b4b4b4" "#878787")
1012 (september "#bf9900" "#ffcc00"))
1013 "Color alist used for the Gnus logo.")
1015 (defcustom gnus-logo-color-style 'no
1016 "*Color styles used for the Gnus logo."
1017 :type `(choice ,@(mapcar (lambda (elem) (list 'const (car elem)))
1018 gnus-logo-color-alist))
1021 (defvar gnus-logo-colors
1022 (cdr (assq gnus-logo-color-style gnus-logo-color-alist))
1023 "Colors used for the Gnus logo.")
1025 (declare-function image-size "image.c" (spec &optional pixels frame))
1027 (defun gnus-group-startup-message (&optional x y)
1028 "Insert startup message in current buffer."
1029 ;; Insert the message.
1032 (fboundp 'find-image)
1034 ;; Make sure the library defining `image-load-path' is
1035 ;; loaded (`find-image' is autoloaded) (and discard the
1036 ;; result). Else, we may get "defvar ignored because
1037 ;; image-load-path is let-bound" when calling `find-image'
1039 (or (find-image '(nil (:type xpm :file "gnus.xpm"))) t)
1040 (let* ((data-directory (nnheader-find-etc-directory "images/gnus"))
1041 (image-load-path (cond (data-directory
1042 (list data-directory))
1043 ((boundp 'image-load-path)
1044 (symbol-value 'image-load-path))
1047 `((:type xpm :file "gnus.xpm"
1049 (("thing" . ,(car gnus-logo-colors))
1050 ("shadow" . ,(cadr gnus-logo-colors))))
1051 (:type svg :file "gnus.svg")
1052 (:type png :file "gnus.png")
1053 (:type pbm :file "gnus.pbm"
1054 ;; Account for the pbm's background.
1055 :background ,(face-foreground 'gnus-splash)
1056 :foreground ,(face-background 'default))
1057 (:type xbm :file "gnus.xbm"
1058 ;; Account for the xbm's background.
1059 :background ,(face-foreground 'gnus-splash)
1060 :foreground ,(face-background 'default))))))
1062 (let ((size (image-size image)))
1063 (insert-char ?\n (max 0 (round (- (window-height)
1064 (or y (cdr size)) 1) 2)))
1065 (insert-char ?\ (max 0 (round (- (window-width)
1066 (or x (car size))) 2)))
1067 (insert-image image))
1068 (goto-char (point-min))
1073 _ ___ __ ___ __ _ ___
1091 ;; And then hack it.
1092 (gnus-indent-rigidly (point-min) (point-max)
1093 (/ (max (- (window-width) (or x 46)) 0) 2))
1094 (goto-char (point-min))
1096 (let* ((pheight (count-lines (point-min) (point-max)))
1097 (wheight (window-height))
1098 (rest (- wheight pheight)))
1099 (insert (make-string (max 0 (* 2 (/ rest 3))) ?\n)))
1101 (put-text-property (point-min) (point-max) 'face 'gnus-splash)
1102 (goto-char (point-min))
1103 (setq mode-line-buffer-identification (concat " " gnus-version))
1104 (set-buffer-modified-p t)))
1107 (let ((command (format "%s" this-command)))
1108 (when (string-match "gnus" command)
1109 (if (string-match "gnus-other-frame" command)
1110 (gnus-get-buffer-create gnus-group-buffer)
1115 (require 'gnus-util)
1118 (defcustom gnus-parameters nil
1119 "Alist of group parameters.
1122 ((\"mail\\\\..*\" (gnus-show-threads nil)
1123 (gnus-use-scoring nil)
1124 (gnus-summary-line-format
1125 \"%U%R%z%I%(%[%d:%ub%-23,23f%]%) %s\\n\")
1128 (\"mail\\\\.me\" (gnus-use-scoring t))
1129 (\"list\\\\..*\" (total-expire . t)
1130 (broken-reply-to . t)))"
1132 :group 'gnus-group-various
1133 :type '(repeat (cons regexp
1136 (defcustom gnus-parameters-case-fold-search 'default
1137 "If it is t, ignore case of group names specified in `gnus-parameters'.
1138 If it is nil, don't ignore case. If it is `default', which is for the
1139 backward compatibility, use the value of `case-fold-search'."
1141 :group 'gnus-group-various
1142 :type '(choice :format "%{%t%}:\n %[Value Menu%] %v"
1143 (const :tag "Use `case-fold-search'" default)
1147 (defvar gnus-group-parameters-more nil)
1149 (defmacro gnus-define-group-parameter (param &rest rest)
1150 "Define a group parameter PARAM.
1151 REST is a plist of following:
1152 :type One of `bool', `list' or nil.
1153 :function The name of the function.
1154 :function-document The documentation of the function.
1155 :parameter-type The type for customizing the parameter.
1156 :parameter-document The documentation for the parameter.
1157 :variable The name of the variable.
1158 :variable-document The documentation for the variable.
1159 :variable-group The group for customizing the variable.
1160 :variable-type The type for customizing the variable.
1161 :variable-default The default value of the variable."
1162 (let* ((type (plist-get rest :type))
1163 (parameter-type (plist-get rest :parameter-type))
1164 (parameter-document (plist-get rest :parameter-document))
1165 (function (or (plist-get rest :function)
1166 (intern (format "gnus-parameter-%s" param))))
1167 (function-document (or (plist-get rest :function-document) ""))
1168 (variable (or (plist-get rest :variable)
1169 (intern (format "gnus-parameter-%s-alist" param))))
1170 (variable-document (or (plist-get rest :variable-document) ""))
1171 (variable-group (plist-get rest :variable-group))
1172 (variable-type (or (plist-get rest :variable-type)
1174 (list (regexp :tag "Group")
1175 ,(car (cdr parameter-type)))))))
1176 (variable-default (plist-get rest :variable-default)))
1179 `(defcustom ,variable ,variable-default
1181 :group 'gnus-group-parameter
1182 :group ',variable-group
1183 :type ,variable-type)
1184 `(setq gnus-group-parameters-more
1185 (delq (assq ',param gnus-group-parameters-more)
1186 gnus-group-parameters-more))
1187 `(add-to-list 'gnus-group-parameters-more
1190 ,parameter-document))
1192 `(defun ,function (name)
1194 (let ((params (gnus-group-find-parameter name))
1197 ((memq ',param params)
1199 ((setq val (assq ',param params))
1201 ((stringp ,variable)
1202 (string-match ,variable name))
1204 (let ((alist ,variable)
1206 (while (setq elem (pop alist))
1208 (string-match (car elem) name))
1211 (if (consp value) (car value) value))))))
1212 `(defun ,function (name)
1215 (or (gnus-group-find-parameter name ',param ,(and type t))
1216 (let ((alist ,variable)
1218 (while (setq elem (pop alist))
1220 (string-match (car elem) name))
1225 '(if (consp value) (car value) value))))))))))
1227 (defcustom gnus-home-directory "~/"
1228 "Directory variable that specifies the \"home\" directory.
1229 All other Gnus file and directory variables are initialized from this variable."
1233 (defcustom gnus-directory (or (getenv "SAVEDIR")
1234 (nnheader-concat gnus-home-directory "News/"))
1235 "*Directory variable from which all other Gnus file variables are derived.
1237 Note that Gnus is mostly loaded when the `.gnus.el' file is read.
1238 This means that other directory variables that are initialized from
1239 this variable won't be set properly if you set this variable in `.gnus.el'.
1240 Set this variable in `.emacs' instead."
1244 (defcustom gnus-default-directory nil
1245 "*Default directory for all Gnus buffers."
1247 :type '(choice (const :tag "current" nil)
1250 ;; Site dependent variables. These variables should be defined in
1253 (defvar gnus-default-nntp-server nil
1254 "Specify a default NNTP server.
1255 This variable should be defined in paths.el, and should never be set
1257 If you want to change servers, you should use `gnus-select-method'.
1258 See the documentation to that variable.")
1260 (defcustom gnus-nntpserver-file "/etc/nntpserver"
1261 "A file with only the name of the nntp server in it."
1266 (defun gnus-getenv-nntpserver ()
1267 "Find default nntp server.
1268 Check the NNTPSERVER environment variable and the
1269 `gnus-nntpserver-file' file."
1270 (or (getenv "NNTPSERVER")
1271 (and (file-readable-p gnus-nntpserver-file)
1273 (insert-file-contents gnus-nntpserver-file)
1274 (when (re-search-forward "[^ \t\n\r]+" nil t)
1275 (match-string 0))))))
1277 ;; `M-x customize-variable RET gnus-select-method RET' should work without
1278 ;; starting or even loading Gnus.
1279 ;;;###autoload(when (fboundp 'custom-autoload)
1280 ;;;###autoload (custom-autoload 'gnus-select-method "gnus"))
1282 (defcustom gnus-select-method
1283 (list 'nntp (or (gnus-getenv-nntpserver)
1284 (when (and gnus-default-nntp-server
1285 (not (string= gnus-default-nntp-server "")))
1286 gnus-default-nntp-server)
1288 "Default method for selecting a newsgroup.
1289 This variable should be a list, where the first element is how the
1290 news is to be fetched, the second is the address.
1292 For instance, if you want to get your news via \"flab.flab.edu\" using
1293 NNTP, you could say:
1295 \(setq gnus-select-method '(nntp \"flab.flab.edu\"))
1297 If you want to use your local spool, say:
1299 \(setq gnus-select-method (list 'nnspool (system-name)))
1301 If you use this variable, you must set `gnus-nntp-server' to nil.
1303 There is a lot more to know about select methods and virtual servers -
1304 see the manual for details."
1307 :initialize 'custom-initialize-default
1308 :type 'gnus-select-method)
1310 (defcustom gnus-message-archive-method "archive"
1311 "*Method used for archiving messages you've sent.
1312 This should be a mail method.
1314 See also `gnus-update-message-archive-method'."
1316 :group 'gnus-message
1317 :type '(choice (const :tag "Default archive method" "archive")
1318 gnus-select-method))
1320 (defcustom gnus-update-message-archive-method nil
1321 "Non-nil means always update the saved \"archive\" method.
1323 The archive method is initially set according to the value of
1324 `gnus-message-archive-method' and is saved in the \"~/.newsrc.eld\" file
1325 so that it may be used as a real method of the server which is named
1326 \"archive\" ever since. If it once has been saved, it will never be
1327 updated if the value of this variable is nil, even if you change the
1328 value of `gnus-message-archive-method' afterward. If you want the
1329 saved \"archive\" method to be updated whenever you change the value of
1330 `gnus-message-archive-method', set this variable to a non-nil value."
1333 :group 'gnus-message
1336 (defcustom gnus-message-archive-group '((format-time-string "sent.%Y-%m"))
1337 "*Name of the group in which to save the messages you've written.
1338 This can either be a string; a list of strings; or an alist
1339 of regexps/functions/forms to be evaluated to return a string (or a list
1340 of strings). The functions are called with the name of the current
1341 group (or nil) as a parameter.
1343 If you want to save your mail in one group and the news articles you
1344 write in another group, you could say something like:
1346 \(setq gnus-message-archive-group
1347 '((if (message-news-p)
1351 Normally the group names returned by this variable should be
1352 unprefixed -- which implicitly means \"store on the archive server\".
1353 However, you may wish to store the message on some other server. In
1354 that case, just return a fully prefixed name of the group --
1355 \"nnml+private:mail.misc\", for instance."
1357 :group 'gnus-message
1358 :type '(choice (const :tag "none" nil)
1359 (const :tag "Weekly" ((format-time-string "sent.%Yw%U")))
1360 (const :tag "Monthly" ((format-time-string "sent.%Y-%m")))
1361 (const :tag "Yearly" ((format-time-string "sent.%Y")))
1366 (defcustom gnus-secondary-servers nil
1367 "List of NNTP servers that the user can choose between interactively.
1368 To make Gnus query you for a server, you have to give `gnus' a
1369 non-numeric prefix - `C-u M-x gnus', in short."
1371 :type '(repeat string))
1372 (make-obsolete-variable 'gnus-secondary-servers 'gnus-select-method "24.1")
1374 (defcustom gnus-nntp-server nil
1375 "The name of the host running the NNTP server."
1377 :type '(choice (const :tag "disable" nil)
1379 (make-obsolete-variable 'gnus-nntp-server 'gnus-select-method "24.1")
1381 (defcustom gnus-secondary-select-methods nil
1382 "A list of secondary methods that will be used for reading news.
1383 This is a list where each element is a complete select method (see
1384 `gnus-select-method').
1386 If, for instance, you want to read your mail with the nnml back end,
1387 you could set this variable:
1389 \(setq gnus-secondary-select-methods '((nnml \"\")))"
1391 :type '(repeat gnus-select-method))
1393 (defcustom gnus-local-domain nil
1394 "Local domain name without a host name.
1395 The DOMAINNAME environment variable is used instead if it is defined.
1396 If the function `system-name' returns the full Internet name, there is
1397 no need to set this variable."
1398 :group 'gnus-message
1399 :type '(choice (const :tag "default" nil)
1401 (make-obsolete-variable 'gnus-local-domain nil "Emacs 24.1")
1403 (defvar gnus-local-organization nil
1404 "String with a description of what organization (if any) the user belongs to.
1405 Obsolete variable; use `message-user-organization' instead.")
1407 ;; Customization variables
1409 (defcustom gnus-refer-article-method 'current
1410 "Preferred method for fetching an article by Message-ID.
1411 If you are reading news from the local spool (with nnspool), fetching
1412 articles by Message-ID is painfully slow. By setting this method to an
1413 nntp method, you might get acceptable results.
1415 The value of this variable must be a valid select method as discussed
1416 in the documentation of `gnus-select-method'.
1418 It can also be a list of select methods, as well as the special symbol
1419 `current', which means to use the current select method. If it is a
1420 list, Gnus will try all the methods in the list until it finds a match."
1423 :type '(choice (const :tag "default" nil)
1425 (const :tag "Google" (nnweb "refer" (nnweb-type google)))
1427 (repeat :menu-tag "Try multiple"
1429 :value (current (nnweb "refer" (nnweb-type google)))
1430 (choice :tag "Method"
1432 (const :tag "Google"
1433 (nnweb "refer" (nnweb-type google)))
1434 gnus-select-method))))
1436 (defcustom gnus-use-cross-reference t
1437 "*Non-nil means that cross referenced articles will be marked as read.
1438 If nil, ignore cross references. If t, mark articles as read in
1439 subscribed newsgroups. If neither t nor nil, mark as read in all
1442 :type '(choice (const :tag "off" nil)
1443 (const :tag "subscribed" t)
1447 (defcustom gnus-process-mark ?#
1449 :group 'gnus-group-visual
1450 :group 'gnus-summary-marks
1453 (defcustom gnus-large-newsgroup 200
1454 "*The number of articles which indicates a large newsgroup.
1455 If the number of articles in a newsgroup is greater than this value,
1456 confirmation is required for selecting the newsgroup.
1457 If it is nil, no confirmation is required.
1459 Also see `gnus-large-ephemeral-newsgroup'."
1460 :group 'gnus-group-select
1461 :type '(choice (const :tag "No limit" nil)
1464 (defcustom gnus-use-long-file-name (not (memq system-type '(usg-unix-v)))
1465 "Non-nil means that the default name of a file to save articles in is the group name.
1466 If it's nil, the directory form of the group name is used instead.
1468 If this variable is a list, and the list contains the element
1469 `not-score', long file names will not be used for score files; if it
1470 contains the element `not-save', long file names will not be used for
1471 saving; and if it contains the element `not-kill', long file names
1472 will not be used for kill files.
1474 Note that the default for this variable varies according to what system
1475 type you're using. On `usg-unix-v' this variable defaults to nil while
1476 on all other systems it defaults to t."
1478 :type '(radio (sexp :format "Non-nil\n"
1479 :match (lambda (widget value)
1480 (and value (not (listp value))))
1483 (checklist (const :format "%v " not-score)
1484 (const :format "%v " not-save)
1487 (defcustom gnus-kill-files-directory gnus-directory
1488 "*Name of the directory where kill files will be stored (default \"~/News\")."
1489 :group 'gnus-score-files
1490 :group 'gnus-score-kill
1493 (defcustom gnus-save-score nil
1494 "*If non-nil, save group scoring info."
1495 :group 'gnus-score-various
1499 (defcustom gnus-use-undo t
1500 "*If non-nil, allow undoing in Gnus group mode buffers."
1504 (defcustom gnus-use-adaptive-scoring nil
1505 "*If non-nil, use some adaptive scoring scheme.
1506 If a list, then the values `word' and `line' are meaningful. The
1507 former will perform adaption on individual words in the subject
1508 header while `line' will perform adaption on several headers."
1510 :group 'gnus-score-adapt
1511 :type '(set (const word) (const line)))
1513 (defcustom gnus-use-cache 'passive
1514 "*If nil, Gnus will ignore the article cache.
1515 If `passive', it will allow entering (and reading) articles
1516 explicitly entered into the cache. If anything else, use the
1517 cache to the full extent of the law."
1520 :type '(choice (const :tag "off" nil)
1521 (const :tag "passive" passive)
1522 (const :tag "active" t)))
1524 (defcustom gnus-use-trees nil
1525 "*If non-nil, display a thread tree buffer."
1529 (defcustom gnus-keep-backlog 20
1530 "*If non-nil, Gnus will keep read articles for later re-retrieval.
1531 If it is a number N, then Gnus will only keep the last N articles
1532 read. If it is neither nil nor a number, Gnus will keep all read
1533 articles. This is not a good idea."
1535 :type '(choice (const :tag "off" nil)
1540 (defcustom gnus-suppress-duplicates nil
1541 "*If non-nil, Gnus will mark duplicate copies of the same article as read."
1545 (defcustom gnus-use-scoring t
1546 "*If non-nil, enable scoring."
1550 (defcustom gnus-summary-prepare-exit-hook
1551 '(gnus-summary-expire-articles)
1552 "*A hook called when preparing to exit from the summary buffer.
1553 It calls `gnus-summary-expire-articles' by default."
1554 :group 'gnus-summary-exit
1557 (defcustom gnus-novice-user t
1558 "*Non-nil means that you are a Usenet novice.
1559 If non-nil, verbose messages may be displayed and confirmations may be
1564 (defcustom gnus-expert-user nil
1565 "*Non-nil means that you will never be asked for confirmation about anything.
1566 That doesn't mean *anything* anything; particularly destructive
1567 commands will still require prompting."
1571 (defcustom gnus-interactive-catchup t
1572 "*If non-nil, require your confirmation when catching up a group."
1573 :group 'gnus-group-select
1576 (defcustom gnus-interactive-exit t
1577 "*If non-nil, require your confirmation when exiting Gnus."
1581 (defcustom gnus-extract-address-components 'gnus-extract-address-components
1582 "*Function for extracting address components from a From header.
1583 Two pre-defined function exist: `gnus-extract-address-components',
1584 which is the default, quite fast, and too simplistic solution, and
1585 `mail-extract-address-components', which works much better, but is
1587 :group 'gnus-summary-format
1588 :type '(radio (function-item gnus-extract-address-components)
1589 (function-item mail-extract-address-components)
1590 (function :tag "Other")))
1592 (defcustom gnus-shell-command-separator ";"
1593 "String used to separate shell commands."
1597 (defcustom gnus-valid-select-methods
1598 '(("nntp" post address prompt-address physical-address)
1599 ("nnspool" post address)
1600 ("nnvirtual" post-mail virtual prompt-address)
1601 ("nnmbox" mail respool address)
1602 ("nnml" post-mail respool address)
1603 ("nnmh" mail respool address)
1604 ("nndir" post-mail prompt-address physical-address)
1605 ("nneething" none address prompt-address physical-address)
1606 ("nndoc" none address prompt-address)
1607 ("nnbabyl" mail address respool)
1608 ("nndraft" post-mail)
1609 ("nnfolder" mail respool address)
1610 ("nngateway" post-mail address prompt-address physical-address)
1613 ("nnagent" post-mail)
1614 ("nnimap" post-mail address prompt-address physical-address)
1615 ("nnmaildir" mail respool address)
1617 "*An alist of valid select methods.
1618 The first element of each list lists should be a string with the name
1619 of the select method. The other elements may be the category of
1620 this method (i. e., `post', `mail', `none' or whatever) or other
1621 properties that this method has (like being respoolable).
1622 If you implement a new select method, all you should have to change is
1623 this variable. I think."
1625 :type '(repeat (group (string :tag "Name")
1626 (radio-button-choice (const :format "%v " post)
1627 (const :format "%v " mail)
1628 (const :format "%v " none)
1630 (checklist :inline t
1631 (const :format "%v " address)
1632 (const :format "%v " prompt-address)
1633 (const :format "%v " physical-address)
1634 (const :format "%v " virtual)
1638 (defun gnus-redefine-select-method-widget ()
1639 "Recomputes the select-method widget based on the value of
1640 `gnus-valid-select-methods'."
1641 (define-widget 'gnus-select-method 'list
1642 "Widget for entering a select method."
1644 :tag "Select Method"
1645 :args `((choice :tag "Method"
1646 ,@(mapcar (lambda (entry)
1647 (list 'const :format "%v\n"
1648 (intern (car entry))))
1649 gnus-valid-select-methods)
1650 (symbol :tag "other"))
1651 (string :tag "Address")
1652 (repeat :tag "Options"
1656 (sexp :tag "Value"))))))
1658 (gnus-redefine-select-method-widget)
1660 (defcustom gnus-updated-mode-lines '(group article summary tree)
1661 "List of buffers that should update their mode lines.
1662 The list may contain the symbols `group', `article', `tree' and
1663 `summary'. If the corresponding symbol is present, Gnus will keep
1664 that mode line updated with information that may be pertinent.
1665 If this variable is nil, screen refresh may be quicker."
1666 :group 'gnus-various
1667 :type '(set (const group)
1672 (defcustom gnus-mode-non-string-length 30
1673 "*Max length of mode-line non-string contents.
1674 If this is nil, Gnus will take space as is needed, leaving the rest
1675 of the mode line intact."
1677 :group 'gnus-various
1678 :type '(choice (const nil)
1681 ;; There should be special validation for this.
1682 (define-widget 'gnus-email-address 'string
1683 "An email address.")
1685 (gnus-define-group-parameter
1688 "Return GROUP's to-address."
1690 "*Alist of group regexps and correspondent to-addresses."
1691 :variable-group gnus-group-parameter
1692 :parameter-type '(gnus-email-address :tag "To Address")
1693 :parameter-document "\
1694 This will be used when doing followups and posts.
1696 This is primarily useful in mail groups that represent closed
1697 mailing lists--mailing lists where it's expected that everybody that
1698 writes to the mailing list is subscribed to it. Since using this
1699 parameter ensures that the mail only goes to the mailing list itself,
1700 it means that members won't receive two copies of your followups.
1702 Using `to-address' will actually work whether the group is foreign or
1703 not. Let's say there's a group on the server that is called
1704 `fa.4ad-l'. This is a real newsgroup, but the server has gotten the
1705 articles from a mail-to-news gateway. Posting directly to this group
1706 is therefore impossible--you have to send mail to the mailing list
1709 The gnus-group-split mail splitting mechanism will behave as if this
1710 address was listed in gnus-group-split Addresses (see below).")
1712 (gnus-define-group-parameter
1715 "Return GROUP's to-list."
1717 "*Alist of group regexps and correspondent to-lists."
1718 :variable-group gnus-group-parameter
1719 :parameter-type '(gnus-email-address :tag "To List")
1720 :parameter-document "\
1721 This address will be used when doing a `a' in the group.
1723 It is totally ignored when doing a followup--except that if it is
1724 present in a news group, you'll get mail group semantics when doing
1727 The gnus-group-split mail splitting mechanism will behave as if this
1728 address was listed in gnus-group-split Addresses (see below).")
1730 (gnus-define-group-parameter
1734 "Return GROUP's subscription status."
1736 "*Groups which are automatically considered subscribed."
1737 :variable-group gnus-group-parameter
1738 :parameter-type '(const :tag "Subscribed" t)
1739 :parameter-document "\
1740 Gnus assumed that you are subscribed to the To/List address.
1742 When constructing a list of subscribed groups using
1743 `gnus-find-subscribed-addresses', Gnus includes the To address given
1744 above, or the list address (if the To address has not been set).")
1746 (gnus-define-group-parameter
1749 :function gnus-group-auto-expirable-p
1751 "Check whether GROUP is auto-expirable or not."
1752 :variable gnus-auto-expirable-newsgroups
1753 :variable-default nil
1755 "*Groups in which to automatically mark read articles as expirable.
1756 If non-nil, this should be a regexp that should match all groups in
1757 which to perform auto-expiry. This only makes sense for mail groups."
1758 :variable-group nnmail-expire
1759 :variable-type '(choice (const nil)
1761 :parameter-type '(const :tag "Automatic Expire" t)
1763 "All articles that are read will be marked as expirable.")
1765 (gnus-define-group-parameter
1768 :function gnus-group-total-expirable-p
1770 "Check whether GROUP is total-expirable or not."
1771 :variable gnus-total-expirable-newsgroups
1772 :variable-default nil
1774 "*Groups in which to perform expiry of all read articles.
1775 Use with extreme caution. All groups that match this regexp will be
1776 expiring - which means that all read articles will be deleted after
1777 \(say) one week. (This only goes for mail groups and the like, of
1779 :variable-group nnmail-expire
1780 :variable-type '(choice (const nil)
1782 :parameter-type '(const :tag "Total Expire" t)
1784 "All read articles will be put through the expiry process
1786 This happens even if they are not marked as expirable.
1789 (gnus-define-group-parameter
1792 "Return the default charset of GROUP."
1793 :variable gnus-group-charset-alist
1795 '(("\\(^\\|:\\)hk\\>\\|\\(^\\|:\\)tw\\>\\|\\<big5\\>" cn-big5)
1796 ("\\(^\\|:\\)cn\\>\\|\\<chinese\\>" cn-gb-2312)
1797 ("\\(^\\|:\\)fj\\>\\|\\(^\\|:\\)japan\\>" iso-2022-jp-2)
1798 ("\\(^\\|:\\)tnn\\>\\|\\(^\\|:\\)pin\\>\\|\\(^\\|:\\)sci.lang.japan" iso-2022-7bit)
1799 ("\\(^\\|:\\)relcom\\>" koi8-r)
1800 ("\\(^\\|:\\)fido7\\>" koi8-r)
1801 ("\\(^\\|:\\)\\(cz\\|hun\\|pl\\|sk\\|hr\\)\\>" iso-8859-2)
1802 ("\\(^\\|:\\)israel\\>" iso-8859-1)
1803 ("\\(^\\|:\\)han\\>" euc-kr)
1804 ("\\(^\\|:\\)alt.chinese.text.big5\\>" chinese-big5)