Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 1917ad0d78d7
children e04119814345
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
28 28
29 (eval '(run-hooks 'gnus-load-hook)) 29 (eval '(run-hooks 'gnus-load-hook))
30 30
31 (require 'custom) 31 (require 'custom)
32 (require 'gnus-load) 32 (require 'gnus-load)
33 (require 'message)
33 34
34 (defgroup gnus nil 35 (defgroup gnus nil
35 "The coffee-brewing, all singing, all dancing, kitchen sink newsreader." 36 "The coffee-brewing, all singing, all dancing, kitchen sink newsreader."
36 :group 'news 37 :group 'news
37 :group 'mail) 38 :group 'mail)
223 (defgroup gnus-exit nil 224 (defgroup gnus-exit nil
224 "Exiting gnus." 225 "Exiting gnus."
225 :link '(custom-manual "(gnus)Exiting Gnus") 226 :link '(custom-manual "(gnus)Exiting Gnus")
226 :group 'gnus) 227 :group 'gnus)
227 228
228 (defconst gnus-version-number "5.4.17" 229 (defconst gnus-version-number "5.4.24"
229 "Version number for this version of Gnus.") 230 "Version number for this version of Gnus.")
230 231
231 (defconst gnus-version (format "Gnus v%s" gnus-version-number) 232 (defconst gnus-version (format "Gnus v%s" gnus-version-number)
232 "Version string for this version of Gnus.") 233 "Version string for this version of Gnus.")
233 234
305 name)) 306 name))
306 307
307 ;; We define these group faces here to avoid the display 308 ;; We define these group faces here to avoid the display
308 ;; update forced when creating new faces. 309 ;; update forced when creating new faces.
309 310
310 (defface gnus-group-news-1-face 311 (defface gnus-group-news-1-face
311 '((((class color) 312 '((((class color)
312 (background dark)) 313 (background dark))
313 (:foreground "PaleTurquoise" :bold t)) 314 (:foreground "PaleTurquoise" :bold t))
314 (((class color) 315 (((class color)
315 (background light)) 316 (background light))
327 (:foreground "ForestGreen")) 328 (:foreground "ForestGreen"))
328 (t 329 (t
329 ())) 330 ()))
330 "Level 1 empty newsgroup face.") 331 "Level 1 empty newsgroup face.")
331 332
332 (defface gnus-group-news-2-face 333 (defface gnus-group-news-2-face
333 '((((class color) 334 '((((class color)
334 (background dark)) 335 (background dark))
335 (:foreground "turquoise" :bold t)) 336 (:foreground "turquoise" :bold t))
336 (((class color) 337 (((class color)
337 (background light)) 338 (background light))
349 (:foreground "CadetBlue4")) 350 (:foreground "CadetBlue4"))
350 (t 351 (t
351 ())) 352 ()))
352 "Level 2 empty newsgroup face.") 353 "Level 2 empty newsgroup face.")
353 354
354 (defface gnus-group-news-3-face 355 (defface gnus-group-news-3-face
355 '((((class color) 356 '((((class color)
356 (background dark)) 357 (background dark))
357 (:bold t)) 358 (:bold t))
358 (((class color) 359 (((class color)
359 (background light)) 360 (background light))
371 ()) 372 ())
372 (t 373 (t
373 ())) 374 ()))
374 "Level 3 empty newsgroup face.") 375 "Level 3 empty newsgroup face.")
375 376
376 (defface gnus-group-news-low-face 377 (defface gnus-group-news-low-face
377 '((((class color) 378 '((((class color)
378 (background dark)) 379 (background dark))
379 (:foreground "DarkTurquoise" :bold t)) 380 (:foreground "DarkTurquoise" :bold t))
380 (((class color) 381 (((class color)
381 (background light)) 382 (background light))
393 (:foreground "DarkGreen")) 394 (:foreground "DarkGreen"))
394 (t 395 (t
395 ())) 396 ()))
396 "Low level empty newsgroup face.") 397 "Low level empty newsgroup face.")
397 398
398 (defface gnus-group-mail-1-face 399 (defface gnus-group-mail-1-face
399 '((((class color) 400 '((((class color)
400 (background dark)) 401 (background dark))
401 (:foreground "aquamarine1" :bold t)) 402 (:foreground "aquamarine1" :bold t))
402 (((class color) 403 (((class color)
403 (background light)) 404 (background light))
415 (:foreground "DeepPink3")) 416 (:foreground "DeepPink3"))
416 (t 417 (t
417 (:italic t :bold t))) 418 (:italic t :bold t)))
418 "Level 1 empty mailgroup face.") 419 "Level 1 empty mailgroup face.")
419 420
420 (defface gnus-group-mail-2-face 421 (defface gnus-group-mail-2-face
421 '((((class color) 422 '((((class color)
422 (background dark)) 423 (background dark))
423 (:foreground "aquamarine2" :bold t)) 424 (:foreground "aquamarine2" :bold t))
424 (((class color) 425 (((class color)
425 (background light)) 426 (background light))
437 (:foreground "HotPink3")) 438 (:foreground "HotPink3"))
438 (t 439 (t
439 (:bold t))) 440 (:bold t)))
440 "Level 2 empty mailgroup face.") 441 "Level 2 empty mailgroup face.")
441 442
442 (defface gnus-group-mail-3-face 443 (defface gnus-group-mail-3-face
443 '((((class color) 444 '((((class color)
444 (background dark)) 445 (background dark))
445 (:foreground "aquamarine3" :bold t)) 446 (:foreground "aquamarine3" :bold t))
446 (((class color) 447 (((class color)
447 (background light)) 448 (background light))
459 (:foreground "magenta4")) 460 (:foreground "magenta4"))
460 (t 461 (t
461 ())) 462 ()))
462 "Level 3 empty mailgroup face.") 463 "Level 3 empty mailgroup face.")
463 464
464 (defface gnus-group-mail-low-face 465 (defface gnus-group-mail-low-face
465 '((((class color) 466 '((((class color)
466 (background dark)) 467 (background dark))
467 (:foreground "aquamarine4" :bold t)) 468 (:foreground "aquamarine4" :bold t))
468 (((class color) 469 (((class color)
469 (background light)) 470 (background light))
483 (:bold t))) 484 (:bold t)))
484 "Low level empty mailgroup face.") 485 "Low level empty mailgroup face.")
485 486
486 ;; Summary mode faces. 487 ;; Summary mode faces.
487 488
488 (defface gnus-summary-selected-face '((t 489 (defface gnus-summary-selected-face '((t
489 (:underline t))) 490 (:underline t)))
490 "Face used for selected articles.") 491 "Face used for selected articles.")
491 492
492 (defface gnus-summary-cancelled-face 493 (defface gnus-summary-cancelled-face
493 '((((class color)) 494 '((((class color))
494 (:foreground "yellow" :background "black"))) 495 (:foreground "yellow" :background "black")))
495 "Face used for cancelled articles.") 496 "Face used for cancelled articles.")
496 497
497 (defface gnus-summary-high-ticked-face 498 (defface gnus-summary-high-ticked-face
499 (background dark)) 500 (background dark))
500 (:foreground "pink" :bold t)) 501 (:foreground "pink" :bold t))
501 (((class color) 502 (((class color)
502 (background light)) 503 (background light))
503 (:foreground "firebrick" :bold t)) 504 (:foreground "firebrick" :bold t))
504 (t 505 (t
505 (:bold t))) 506 (:bold t)))
506 "Face used for high interest ticked articles.") 507 "Face used for high interest ticked articles.")
507 508
508 (defface gnus-summary-low-ticked-face 509 (defface gnus-summary-low-ticked-face
509 '((((class color) 510 '((((class color)
510 (background dark)) 511 (background dark))
511 (:foreground "pink" :italic t)) 512 (:foreground "pink" :italic t))
512 (((class color) 513 (((class color)
513 (background light)) 514 (background light))
514 (:foreground "firebrick" :italic t)) 515 (:foreground "firebrick" :italic t))
515 (t 516 (t
516 (:italic t))) 517 (:italic t)))
517 "Face used for low interest ticked articles.") 518 "Face used for low interest ticked articles.")
518 519
519 (defface gnus-summary-normal-ticked-face 520 (defface gnus-summary-normal-ticked-face
520 '((((class color) 521 '((((class color)
521 (background dark)) 522 (background dark))
522 (:foreground "pink")) 523 (:foreground "pink"))
523 (((class color) 524 (((class color)
524 (background light)) 525 (background light))
525 (:foreground "firebrick")) 526 (:foreground "firebrick"))
526 (t 527 (t
527 ())) 528 ()))
528 "Face used for normal interest ticked articles.") 529 "Face used for normal interest ticked articles.")
529 530
530 (defface gnus-summary-high-ancient-face 531 (defface gnus-summary-high-ancient-face
531 '((((class color) 532 '((((class color)
532 (background dark)) 533 (background dark))
533 (:foreground "SkyBlue" :bold t)) 534 (:foreground "SkyBlue" :bold t))
534 (((class color) 535 (((class color)
535 (background light)) 536 (background light))
536 (:foreground "RoyalBlue" :bold t)) 537 (:foreground "RoyalBlue" :bold t))
537 (t 538 (t
538 (:bold t))) 539 (:bold t)))
539 "Face used for high interest ancient articles.") 540 "Face used for high interest ancient articles.")
540 541
541 (defface gnus-summary-low-ancient-face 542 (defface gnus-summary-low-ancient-face
542 '((((class color) 543 '((((class color)
543 (background dark)) 544 (background dark))
544 (:foreground "SkyBlue" :italic t)) 545 (:foreground "SkyBlue" :italic t))
545 (((class color) 546 (((class color)
546 (background light)) 547 (background light))
547 (:foreground "RoyalBlue" :italic t)) 548 (:foreground "RoyalBlue" :italic t))
548 (t 549 (t
549 (:italic t))) 550 (:italic t)))
550 "Face used for low interest ancient articles.") 551 "Face used for low interest ancient articles.")
551 552
552 (defface gnus-summary-normal-ancient-face 553 (defface gnus-summary-normal-ancient-face
553 '((((class color) 554 '((((class color)
554 (background dark)) 555 (background dark))
555 (:foreground "SkyBlue")) 556 (:foreground "SkyBlue"))
556 (((class color) 557 (((class color)
557 (background light)) 558 (background light))
558 (:foreground "RoyalBlue")) 559 (:foreground "RoyalBlue"))
559 (t 560 (t
560 ())) 561 ()))
561 "Face used for normal interest ancient articles.") 562 "Face used for normal interest ancient articles.")
562 563
563 (defface gnus-summary-high-unread-face 564 (defface gnus-summary-high-unread-face
564 '((t 565 '((t
565 (:bold t))) 566 (:bold t)))
566 "Face used for high interest unread articles.") 567 "Face used for high interest unread articles.")
567 568
568 (defface gnus-summary-low-unread-face 569 (defface gnus-summary-low-unread-face
569 '((t 570 '((t
570 (:italic t))) 571 (:italic t)))
571 "Face used for low interest unread articles.") 572 "Face used for low interest unread articles.")
572 573
573 (defface gnus-summary-normal-unread-face 574 (defface gnus-summary-normal-unread-face
574 '((t 575 '((t
575 ())) 576 ()))
576 "Face used for normal interest unread articles.") 577 "Face used for normal interest unread articles.")
577 578
578 (defface gnus-summary-high-read-face 579 (defface gnus-summary-high-read-face
579 '((((class color) 580 '((((class color)
580 (background dark)) 581 (background dark))
581 (:foreground "PaleGreen" 582 (:foreground "PaleGreen"
582 :bold t)) 583 :bold t))
583 (((class color) 584 (((class color)
584 (background light)) 585 (background light))
585 (:foreground "DarkGreen" 586 (:foreground "DarkGreen"
586 :bold t)) 587 :bold t))
587 (t 588 (t
588 (:bold t))) 589 (:bold t)))
589 "Face used for high interest read articles.") 590 "Face used for high interest read articles.")
590 591
591 (defface gnus-summary-low-read-face 592 (defface gnus-summary-low-read-face
592 '((((class color) 593 '((((class color)
595 :italic t)) 596 :italic t))
596 (((class color) 597 (((class color)
597 (background light)) 598 (background light))
598 (:foreground "DarkGreen" 599 (:foreground "DarkGreen"
599 :italic t)) 600 :italic t))
600 (t 601 (t
601 (:italic t))) 602 (:italic t)))
602 "Face used for low interest read articles.") 603 "Face used for low interest read articles.")
603 604
604 (defface gnus-summary-normal-read-face 605 (defface gnus-summary-normal-read-face
605 '((((class color) 606 '((((class color)
606 (background dark)) 607 (background dark))
607 (:foreground "PaleGreen")) 608 (:foreground "PaleGreen"))
608 (((class color) 609 (((class color)
609 (background light)) 610 (background light))
610 (:foreground "DarkGreen")) 611 (:foreground "DarkGreen"))
611 (t 612 (t
612 ())) 613 ()))
613 "Face used for normal interest read articles.") 614 "Face used for normal interest read articles.")
614 615
615 616
616 ;;; Splash screen. 617 ;;; Splash screen.
618 (defvar gnus-group-buffer "*Group*") 619 (defvar gnus-group-buffer "*Group*")
619 620
620 (eval-and-compile 621 (eval-and-compile
621 (autoload 'gnus-play-jingle "gnus-audio")) 622 (autoload 'gnus-play-jingle "gnus-audio"))
622 623
623 (defface gnus-splash-face 624 (defface gnus-splash-face
624 '((((class color) 625 '((((class color)
625 (background dark)) 626 (background dark))
626 (:foreground "red")) 627 (:foreground "red"))
627 (((class color) 628 (((class color)
628 (background light)) 629 (background light))
794 There is a lot more to know about select methods and virtual servers - 795 There is a lot more to know about select methods and virtual servers -
795 see the manual for details." 796 see the manual for details."
796 :group 'gnus-server 797 :group 'gnus-server
797 :type 'gnus-select-method) 798 :type 'gnus-select-method)
798 799
799 (defcustom gnus-message-archive-method 800 (defcustom gnus-message-archive-method
800 `(nnfolder 801 `(nnfolder
801 "archive" 802 "archive"
802 (nnfolder-directory ,(nnheader-concat message-directory "archive")) 803 (nnfolder-directory ,(nnheader-concat message-directory "archive"))
803 (nnfolder-active-file 804 (nnfolder-active-file
804 ,(nnheader-concat message-directory "archive/active")) 805 ,(nnheader-concat message-directory "archive/active"))
805 (nnfolder-get-new-mail nil) 806 (nnfolder-get-new-mail nil)
806 (nnfolder-inhibit-expiry t)) 807 (nnfolder-inhibit-expiry t))
807 "Method used for archiving messages you've sent. 808 "Method used for archiving messages you've sent.
808 This should be a mail method. 809 This should be a mail method.
814 :group 'gnus-message 815 :group 'gnus-message
815 :type 'gnus-select-method) 816 :type 'gnus-select-method)
816 817
817 (defcustom gnus-message-archive-group nil 818 (defcustom gnus-message-archive-group nil
818 "*Name of the group in which to save the messages you've written. 819 "*Name of the group in which to save the messages you've written.
819 This can either be a string, a list of strings; or an alist 820 This can either be a string; a list of strings; or an alist
820 of regexps/functions/forms to be evaluated to return a string (or a list 821 of regexps/functions/forms to be evaluated to return a string (or a list
821 of strings). The functions are called with the name of the current 822 of strings). The functions are called with the name of the current
822 group (or nil) as a parameter. 823 group (or nil) as a parameter.
823 824
824 If you want to save your mail in one group and the news articles you 825 If you want to save your mail in one group and the news articles you
825 write in another group, you could say something like: 826 write in another group, you could say something like:
826 827
827 \(setq gnus-message-archive-group 828 \(setq gnus-message-archive-group
828 '((if (message-news-p) 829 '((if (message-news-p)
829 \"misc-news\" 830 \"misc-news\"
830 \"misc-mail\"))) 831 \"misc-mail\")))
831 832
832 Normally the group names returned by this variable should be 833 Normally the group names returned by this variable should be
833 unprefixed -- which implicitly means \"store on the archive server\". 834 unprefixed -- which implicitly means \"store on the archive server\".
834 However, you may wish to store the message on some other server. In 835 However, you may wish to store the message on some other server. In
877 no need to set this variable." 878 no need to set this variable."
878 :group 'gnus-message 879 :group 'gnus-message
879 :type '(choice (const :tag "default" nil) 880 :type '(choice (const :tag "default" nil)
880 string)) 881 string))
881 882
882 (defcustom gnus-local-organization nil 883 (defvar gnus-local-organization nil
883 "String with a description of what organization (if any) the user belongs to. 884 "String with a description of what organization (if any) the user belongs to.
884 The ORGANIZATION environment variable is used instead if it is defined. 885 Obsolete variable; use `message-user-organization' instead.")
885 If this variable contains a function, this function will be called
886 with the current newsgroup name as the argument. The function should
887 return a string.
888
889 In any case, if the string (either in the variable, in the environment
890 variable, or returned by the function) is a file name, the contents of
891 this file will be used as the organization."
892 :group 'gnus-message
893 :type '(choice (const :tag "default" nil)
894 string))
895 886
896 ;; Customization variables 887 ;; Customization variables
897 888
898 (defcustom gnus-refer-article-method nil 889 (defcustom gnus-refer-article-method nil
899 "Preferred method for fetching an article by Message-ID. 890 "Preferred method for fetching an article by Message-ID.
1045 read. If it is neither nil nor a number, Gnus will keep all read 1036 read. If it is neither nil nor a number, Gnus will keep all read
1046 articles. This is not a good idea." 1037 articles. This is not a good idea."
1047 :group 'gnus-meta 1038 :group 'gnus-meta
1048 :type '(choice (const :tag "off" nil) 1039 :type '(choice (const :tag "off" nil)
1049 integer 1040 integer
1050 (sexp :format "all" 1041 (sexp :format "all"
1051 :value t))) 1042 :value t)))
1052 1043
1053 (defcustom gnus-use-nocem nil 1044 (defcustom gnus-use-nocem nil
1054 "*If non-nil, Gnus will read NoCeM cancel messages." 1045 "*If non-nil, Gnus will read NoCeM cancel messages."
1055 :group 'gnus-meta 1046 :group 'gnus-meta
1073 (defcustom gnus-use-picons nil 1064 (defcustom gnus-use-picons nil
1074 "*If non-nil, display picons." 1065 "*If non-nil, display picons."
1075 :group 'gnus-meta 1066 :group 'gnus-meta
1076 :type 'boolean) 1067 :type 'boolean)
1077 1068
1078 (defcustom gnus-summary-prepare-exit-hook 1069 (defcustom gnus-summary-prepare-exit-hook
1079 '(gnus-summary-expire-articles) 1070 '(gnus-summary-expire-articles)
1080 "A hook called when preparing to exit from the summary buffer. 1071 "A hook called when preparing to exit from the summary buffer.
1081 It calls `gnus-summary-expire-articles' by default." 1072 It calls `gnus-summary-expire-articles' by default."
1082 :group 'gnus-summary-exit 1073 :group 'gnus-summary-exit
1083 :type 'hook) 1074 :type 'hook)
1170 (intern (car entry)))) 1161 (intern (car entry))))
1171 gnus-valid-select-methods)) 1162 gnus-valid-select-methods))
1172 (string :tag "Address") 1163 (string :tag "Address")
1173 (editable-list :inline t 1164 (editable-list :inline t
1174 (list :format "%v" 1165 (list :format "%v"
1175 variable 1166 variable
1176 (sexp :tag "Value"))))) 1167 (sexp :tag "Value")))))
1177 1168
1178 (defcustom gnus-updated-mode-lines '(group article summary tree) 1169 (defcustom gnus-updated-mode-lines '(group article summary tree)
1179 "List of buffers that should update their mode lines. 1170 "List of buffers that should update their mode lines.
1180 The list may contain the symbols `group', `article', `tree' and 1171 The list may contain the symbols `group', `article', `tree' and
1259 :group 'gnus-group-level 1250 :group 'gnus-group-level
1260 :type 'function) 1251 :type 'function)
1261 1252
1262 ;;; Face thingies. 1253 ;;; Face thingies.
1263 1254
1264 (defcustom gnus-visual 1255 (defcustom gnus-visual
1265 '(summary-highlight group-highlight article-highlight 1256 '(summary-highlight group-highlight article-highlight
1266 mouse-face 1257 mouse-face
1267 summary-menu group-menu article-menu 1258 summary-menu group-menu article-menu
1268 tree-highlight menu highlight 1259 tree-highlight menu highlight
1269 browse-menu server-menu 1260 browse-menu server-menu
1270 page-marker tree-menu binary-menu pick-menu 1261 page-marker tree-menu binary-menu pick-menu
1367 gnus-article-date-original 1358 gnus-article-date-original
1368 gnus-article-remove-trailing-blank-lines 1359 gnus-article-remove-trailing-blank-lines
1369 gnus-article-strip-leading-blank-lines 1360 gnus-article-strip-leading-blank-lines
1370 gnus-article-strip-multiple-blank-lines 1361 gnus-article-strip-multiple-blank-lines
1371 gnus-article-strip-blank-lines 1362 gnus-article-strip-blank-lines
1372 gnus-article-treat-overstrike 1363 gnus-article-treat-overstrike))
1373 )) 1364
1365 (defcustom gnus-article-save-directory gnus-directory
1366 "*Name of the directory articles will be saved in (default \"~/News\")."
1367 :group 'gnus-article-saving
1368 :type 'directory)
1374 1369
1375 1370
1376 ;;; Internal variables 1371 ;;; Internal variables
1377 1372
1378 (defvar gnus-group-get-parameter-function 'gnus-group-get-parameter) 1373 (defvar gnus-group-get-parameter-function 'gnus-group-get-parameter)
1616 gnus-summary-resend-message gnus-summary-resend-bounced-mail 1611 gnus-summary-resend-message gnus-summary-resend-bounced-mail
1617 gnus-bug) 1612 gnus-bug)
1618 ("gnus-picon" :interactive t gnus-article-display-picons 1613 ("gnus-picon" :interactive t gnus-article-display-picons
1619 gnus-group-display-picons gnus-picons-article-display-x-face 1614 gnus-group-display-picons gnus-picons-article-display-x-face
1620 gnus-picons-display-x-face) 1615 gnus-picons-display-x-face)
1621 ("gnus-gl" bbb-login bbb-logout bbb-grouplens-group-p 1616 ("gnus-gl" bbb-login bbb-logout bbb-grouplens-group-p
1622 gnus-grouplens-mode) 1617 gnus-grouplens-mode)
1623 ("smiley" :interactive t gnus-smiley-display) 1618 ("smiley" :interactive t gnus-smiley-display)
1624 ("gnus-win" gnus-configure-windows gnus-add-configuration) 1619 ("gnus-win" gnus-configure-windows gnus-add-configuration)
1625 ("gnus-sum" gnus-summary-insert-line gnus-summary-read-group 1620 ("gnus-sum" gnus-summary-insert-line gnus-summary-read-group
1626 gnus-list-of-unread-articles gnus-list-of-read-articles 1621 gnus-list-of-unread-articles gnus-list-of-read-articles
1635 gnus-backlog-remove-article) 1630 gnus-backlog-remove-article)
1636 ("gnus-art" gnus-article-read-summary-keys gnus-article-save 1631 ("gnus-art" gnus-article-read-summary-keys gnus-article-save
1637 gnus-article-prepare gnus-article-set-window-start 1632 gnus-article-prepare gnus-article-set-window-start
1638 gnus-article-next-page gnus-article-prev-page 1633 gnus-article-next-page gnus-article-prev-page
1639 gnus-request-article-this-buffer gnus-article-mode 1634 gnus-request-article-this-buffer gnus-article-mode
1640 gnus-article-setup-buffer gnus-narrow-to-page) 1635 gnus-article-setup-buffer gnus-narrow-to-page
1636 gnus-article-delete-invisible-text)
1641 ("gnus-art" :interactive t 1637 ("gnus-art" :interactive t
1642 gnus-article-hide-headers gnus-article-hide-boring-headers 1638 gnus-article-hide-headers gnus-article-hide-boring-headers
1643 gnus-article-treat-overstrike gnus-article-word-wrap 1639 gnus-article-treat-overstrike gnus-article-word-wrap
1644 gnus-article-remove-cr gnus-article-remove-trailing-blank-lines 1640 gnus-article-remove-cr gnus-article-remove-trailing-blank-lines
1645 gnus-article-display-x-face gnus-article-de-quoted-unreadable 1641 gnus-article-display-x-face gnus-article-de-quoted-unreadable
1646 gnus-article-mime-decode-quoted-printable gnus-article-hide-pgp 1642 gnus-article-mime-decode-quoted-printable gnus-article-hide-pgp
1647 gnus-article-hide-pem gnus-article-hide-signature 1643 gnus-article-hide-pem gnus-article-hide-signature
1648 gnus-article-strip-leading-blank-lines gnus-article-date-local 1644 gnus-article-strip-leading-blank-lines gnus-article-date-local
1649 gnus-article-date-original gnus-article-date-lapsed 1645 gnus-article-date-original gnus-article-date-lapsed
1650 gnus-article-show-all-headers 1646 gnus-article-show-all-headers
1651 gnus-article-edit-mode gnus-article-edit-article 1647 gnus-article-edit-mode gnus-article-edit-article
1652 gnus-article-edit-done gnus-decode-rfc1522 article-decode-rfc1522) 1648 gnus-article-edit-done gnus-decode-rfc1522 article-decode-rfc1522)
1653 ("gnus-int" gnus-request-type) 1649 ("gnus-int" gnus-request-type)
1654 ("gnus-start" gnus-newsrc-parse-options gnus-1 gnus-no-server-1 1650 ("gnus-start" gnus-newsrc-parse-options gnus-1 gnus-no-server-1
1655 gnus-dribble-enter) 1651 gnus-dribble-enter)
1735 ;;; Skeleton keymaps 1731 ;;; Skeleton keymaps
1736 ;;; 1732 ;;;
1737 1733
1738 (defun gnus-suppress-keymap (keymap) 1734 (defun gnus-suppress-keymap (keymap)
1739 (suppress-keymap keymap) 1735 (suppress-keymap keymap)
1740 (let ((keys `([delete] "\177" "\M-u"))) ;gnus-mouse-2 1736 (let ((keys `([delete] "\177" "\M-u"))) ;gnus-mouse-2
1741 (while keys 1737 (while keys
1742 (define-key keymap (pop keys) 'undefined)))) 1738 (define-key keymap (pop keys) 'undefined))))
1743 1739
1744 (defvar gnus-article-mode-map 1740 (defvar gnus-article-mode-map
1745 (let ((keymap (make-keymap))) 1741 (let ((keymap (make-keymap)))
1746 (gnus-suppress-keymap keymap) 1742 (gnus-suppress-keymap keymap)
1747 keymap)) 1743 keymap))
1748 (defvar gnus-summary-mode-map 1744 (defvar gnus-summary-mode-map
1749 (let ((keymap (make-keymap))) 1745 (let ((keymap (make-keymap)))
1750 (gnus-suppress-keymap keymap) 1746 (gnus-suppress-keymap keymap)
1751 keymap)) 1747 keymap))
1752 (defvar gnus-group-mode-map 1748 (defvar gnus-group-mode-map
1753 (let ((keymap (make-keymap))) 1749 (let ((keymap (make-keymap)))
1944 (string-to-number (match-string 3 number)) 1940 (string-to-number (match-string 3 number))
1945 0)) 1941 0))
1946 (string-to-number 1942 (string-to-number
1947 (if (zerop major) 1943 (if (zerop major)
1948 (format "%s00%02d%02d" 1944 (format "%s00%02d%02d"
1949 (cond 1945 (cond
1950 ((member alpha '("(ding)" "d")) "4.99") 1946 ((member alpha '("(ding)" "d")) "4.99")
1951 ((member alpha '("September" "s")) "5.01") 1947 ((member alpha '("September" "s")) "5.01")
1952 ((member alpha '("Red" "r")) "5.03")) 1948 ((member alpha '("Red" "r")) "5.03"))
1953 minor least) 1949 minor least)
1954 (format "%d.%02d%02d" major minor least)))))) 1950 (format "%d.%02d%02d" major minor least))))))
2058 2054
2059 (defsubst gnus-server-add-address (method) 2055 (defsubst gnus-server-add-address (method)
2060 (let ((method-name (symbol-name (car method)))) 2056 (let ((method-name (symbol-name (car method))))
2061 (if (and (memq 'address (assoc method-name gnus-valid-select-methods)) 2057 (if (and (memq 'address (assoc method-name gnus-valid-select-methods))
2062 (not (assq (intern (concat method-name "-address")) method)) 2058 (not (assq (intern (concat method-name "-address")) method))
2063 (memq 'physical-address (assq (car method) 2059 (memq 'physical-address (assq (car method)
2064 gnus-valid-select-methods))) 2060 gnus-valid-select-methods)))
2065 (append method (list (list (intern (concat method-name "-address")) 2061 (append method (list (list (intern (concat method-name "-address"))
2066 (nth 1 method)))) 2062 (nth 1 method))))
2067 method))) 2063 method)))
2068 2064
2081 (t 2077 (t
2082 (gnus-server-add-address method)))) 2078 (gnus-server-add-address method))))
2083 2079
2084 (defun gnus-server-to-method (server) 2080 (defun gnus-server-to-method (server)
2085 "Map virtual server names to select methods." 2081 "Map virtual server names to select methods."
2086 (or 2082 (or
2087 ;; Is this a method, perhaps? 2083 ;; Is this a method, perhaps?
2088 (and server (listp server) server) 2084 (and server (listp server) server)
2089 ;; Perhaps this is the native server? 2085 ;; Perhaps this is the native server?
2090 (and (equal server "native") gnus-select-method) 2086 (and (equal server "native") gnus-select-method)
2091 ;; It should be in the server alist. 2087 ;; It should be in the server alist.
2132 (pop opened)) 2128 (pop opened))
2133 out)) 2129 out))
2134 2130
2135 (defun gnus-archive-server-wanted-p () 2131 (defun gnus-archive-server-wanted-p ()
2136 "Say whether the user wants to use the archive server." 2132 "Say whether the user wants to use the archive server."
2137 (cond 2133 (cond
2138 ((or (not gnus-message-archive-method) 2134 ((or (not gnus-message-archive-method)
2139 (not gnus-message-archive-group)) 2135 (not gnus-message-archive-group))
2140 nil) 2136 nil)
2141 ((and gnus-message-archive-method gnus-message-archive-group) 2137 ((and gnus-message-archive-method gnus-message-archive-group)
2142 t) 2138 t)
2348 :type 'string) 2344 :type 'string)
2349 2345
2350 (defun gnus-newsgroup-kill-file (newsgroup) 2346 (defun gnus-newsgroup-kill-file (newsgroup)
2351 "Return the name of a kill file name for NEWSGROUP. 2347 "Return the name of a kill file name for NEWSGROUP.
2352 If NEWSGROUP is nil, return the global kill file name instead." 2348 If NEWSGROUP is nil, return the global kill file name instead."
2353 (cond 2349 (cond
2354 ;; The global KILL file is placed at top of the directory. 2350 ;; The global KILL file is placed at top of the directory.
2355 ((or (null newsgroup) 2351 ((or (null newsgroup)
2356 (string-equal newsgroup "")) 2352 (string-equal newsgroup ""))
2357 (expand-file-name gnus-kill-file-name 2353 (expand-file-name gnus-kill-file-name
2358 gnus-kill-files-directory)) 2354 gnus-kill-files-directory))
2484 (let ((method 2480 (let ((method
2485 (completing-read 2481 (completing-read
2486 prompt (append gnus-valid-select-methods gnus-predefined-server-alist 2482 prompt (append gnus-valid-select-methods gnus-predefined-server-alist
2487 gnus-server-alist) 2483 gnus-server-alist)
2488 nil t nil 'gnus-method-history))) 2484 nil t nil 'gnus-method-history)))
2489 (cond 2485 (cond
2490 ((equal method "") 2486 ((equal method "")
2491 (setq method gnus-select-method)) 2487 (setq method gnus-select-method))
2492 ((assoc method gnus-valid-select-methods) 2488 ((assoc method gnus-valid-select-methods)
2493 (list (intern method) 2489 (list (intern method)
2494 (if (memq 'prompt-address 2490 (if (memq 'prompt-address