Lines Matching +refs:gnus +refs:group +refs:kill +refs:group
0 ;;; gnus-salt.el --- alternate summary mode interfaces for Gnus
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
32 (require 'gnus)
33 (require 'gnus-sum)
34 (require 'gnus-win)
37 ;;; gnus-pick-mode
40 (defvar gnus-pick-mode nil
44 (defcustom gnus-pick-display-summary nil
47 :group 'gnus-summary-pick)
49 (defcustom gnus-pick-mode-hook nil
52 :group 'gnus-summary-pick)
55 (add-hook 'gnus-pick-mode-hook 'gnus-xmas-pick-menu-add))
57 (defcustom gnus-mark-unpicked-articles-as-read nil
60 :group 'gnus-summary-pick)
62 (defcustom gnus-pick-elegant-flow t
63 "If non-nil, `gnus-pick-start-reading' runs
64 `gnus-summary-next-group' when no articles have been picked."
66 :group 'gnus-summary-pick)
68 (defcustom gnus-summary-pick-line-format
71 It accepts the same format specs that `gnus-summary-line-format' does."
73 :group 'gnus-summary-pick)
77 (defvar gnus-pick-mode-map nil)
79 (unless gnus-pick-mode-map
80 (setq gnus-pick-mode-map (make-sparse-keymap))
82 (gnus-define-keys gnus-pick-mode-map
83 " " gnus-pick-next-page
84 "u" gnus-pick-unmark-article-or-thread
85 "." gnus-pick-article-or-thread
86 gnus-down-mouse-2 gnus-pick-mouse-pick-region
87 "\r" gnus-pick-start-reading))
89 (defun gnus-pick-make-menu-bar ()
90 (unless (boundp 'gnus-pick-menu)
92 gnus-pick-menu gnus-pick-mode-map ""
95 ["Article" gnus-summary-mark-as-processable t]
96 ["Thread" gnus-uu-mark-thread t]
97 ["Region" gnus-uu-mark-region t]
98 ["Regexp" gnus-uu-mark-by-regexp t]
99 ["Buffer" gnus-uu-mark-buffer t])
101 ["Article" gnus-summary-unmark-as-processable t]
102 ["Thread" gnus-uu-unmark-thread t]
103 ["Region" gnus-uu-unmark-region t]
104 ["Regexp" gnus-uu-unmark-by-regexp t]
105 ["Buffer" gnus-summary-unmark-all-processable t])
106 ["Start reading" gnus-pick-start-reading t]
107 ["Switch pick mode off" gnus-pick-mode gnus-pick-mode]))))
109 (defun gnus-pick-mode (&optional arg)
112 \\{gnus-pick-mode-map}"
114 (when (eq major-mode 'gnus-summary-mode)
115 (if (not (set (make-local-variable 'gnus-pick-mode)
116 (if (null arg) (not gnus-pick-mode)
118 (remove-hook 'gnus-message-setup-hook 'gnus-pick-setup-message)
119 ;; Make sure that we don't select any articles upon group entry.
120 (set (make-local-variable 'gnus-auto-select-first) nil)
122 (setq gnus-summary-line-format gnus-summary-pick-line-format)
123 (setq gnus-summary-line-format-spec nil)
124 (gnus-update-format-specifications nil 'summary)
125 (gnus-update-summary-mark-positions)
126 (add-hook 'gnus-message-setup-hook 'gnus-pick-setup-message)
127 (set (make-local-variable 'gnus-summary-goto-unread) 'never)
129 (when (gnus-visual-p 'pick-menu 'menu)
130 (gnus-pick-make-menu-bar))
131 (gnus-add-minor-mode 'gnus-pick-mode " Pick" gnus-pick-mode-map)
132 (gnus-run-hooks 'gnus-pick-mode-hook))))
134 (defun gnus-pick-setup-message ()
136 (when (and (gnus-buffer-live-p gnus-summary-buffer)
138 (set-buffer gnus-summary-buffer)
139 gnus-pick-mode))
141 '(gnus-configure-windows ,gnus-current-window-configuration t)
142 'send 'exit 'postpone 'kill)))
144 (defvar gnus-pick-line-number 1)
145 (defun gnus-pick-line-number ()
148 (setq gnus-pick-line-number 1)
149 (incf gnus-pick-line-number)))
151 (defun gnus-pick-start-reading (&optional catch-up)
155 (if gnus-newsgroup-processable
157 (gnus-summary-limit-to-articles nil)
158 (when (or catch-up gnus-mark-unpicked-articles-as-read)
159 (gnus-summary-limit-mark-excluded-as-read))
160 (gnus-summary-first-article)
161 (gnus-configure-windows
162 (if gnus-pick-display-summary 'article 'pick) t))
163 (if gnus-pick-elegant-flow
165 (when (or catch-up gnus-mark-unpicked-articles-as-read)
166 (gnus-summary-catchup nil t))
167 (if (gnus-group-quit-config gnus-newsgroup-name)
168 (gnus-summary-exit)
169 (gnus-summary-next-group)))
172 (defun gnus-pick-goto-article (arg)
181 (gnus-error 2 "No such line: %s" arg)
184 (defun gnus-pick-article (&optional arg)
189 (gnus-pick-goto-article arg))
190 (gnus-summary-mark-as-processable 1))
192 (defun gnus-pick-article-or-thread (&optional arg)
193 "If `gnus-thread-hide-subtree' is t, then pick the thread on the current line.
198 (gnus-pick-goto-article arg))
199 (if gnus-thread-hide-subtree
202 (gnus-uu-mark-thread))
204 (gnus-summary-mark-as-processable 1)))
206 (defun gnus-pick-unmark-article-or-thread (&optional arg)
207 "If `gnus-thread-hide-subtree' is t, then unmark the thread on current line.
212 (gnus-pick-goto-article arg))
213 (if gnus-thread-hide-subtree
215 (gnus-uu-unmark-thread))
216 (gnus-summary-unmark-as-processable 1)))
218 (defun gnus-pick-mouse-pick (e)
222 (gnus-summary-mark-as-processable 1)))
224 (defun gnus-pick-mouse-pick-region (start-event)
234 (bounds (gnus-window-edges start-window))
248 (gnus-pick-article)
256 (setq event (cdr (gnus-read-event-char)))
273 (gnus-pick-article)
282 (gnus-pick-article)
313 (defun gnus-pick-next-page ()
319 (end-of-buffer (gnus-pick-start-reading)))))
322 ;;; gnus-binary-mode
325 (defvar gnus-binary-mode nil
326 "Minor mode for providing a binary group interface in Gnus summary buffers.")
328 (defvar gnus-binary-mode-hook nil
331 (defvar gnus-binary-mode-map nil)
333 (unless gnus-binary-mode-map
334 (setq gnus-binary-mode-map (make-sparse-keymap))
336 (gnus-define-keys
337 gnus-binary-mode-map
338 "g" gnus-binary-show-article))
340 (defun gnus-binary-make-menu-bar ()
341 (unless (boundp 'gnus-binary-menu)
343 gnus-binary-menu gnus-binary-mode-map ""
345 ["Switch binary mode off" gnus-binary-mode t]))))
347 (defun gnus-binary-mode (&optional arg)
348 "Minor mode for providing a binary group interface in Gnus summary buffers."
350 (when (eq major-mode 'gnus-summary-mode)
351 (make-local-variable 'gnus-binary-mode)
352 (setq gnus-binary-mode
353 (if (null arg) (not gnus-binary-mode)
355 (when gnus-binary-mode
356 ;; Make sure that we don't select any articles upon group entry.
357 (make-local-variable 'gnus-auto-select-first)
358 (setq gnus-auto-select-first nil)
359 (make-local-variable 'gnus-summary-display-article-function)
360 (setq gnus-summary-display-article-function 'gnus-binary-display-article)
362 (when (gnus-visual-p 'binary-menu 'menu)
363 (gnus-binary-make-menu-bar))
364 (gnus-add-minor-mode 'gnus-binary-mode " Binary" gnus-binary-mode-map)
365 (gnus-run-hooks 'gnus-binary-mode-hook))))
367 (defun gnus-binary-display-article (article &optional all-header)
369 (when (gnus-summary-goto-subject article)
370 (let ((gnus-view-pseudos (or gnus-view-pseudos 'automatic)))
371 (gnus-uu-decode-uu))))
373 (defun gnus-binary-show-article (&optional arg)
376 (let (gnus-summary-display-article-function)
377 (gnus-summary-show-article arg)))
380 ;;; gnus-tree-mode
383 (defcustom gnus-tree-line-format "%(%[%3,3n%]%)"
386 :group 'gnus-summary-tree)
388 (defcustom gnus-tree-minimize-window t
394 :group 'gnus-summary-tree)
396 (defcustom gnus-selected-tree-face 'modeline
399 :group 'gnus-summary-tree)
401 (defvar gnus-tree-brackets '((?\[ . ?\]) (?\( . ?\))
405 (defvar gnus-tree-parent-child-edges '(?- ?\\ ?|)
408 (defcustom gnus-tree-mode-line-format "Gnus: %%b %S %Z"
411 :group 'gnus-summary-tree)
413 (defcustom gnus-generate-tree-function 'gnus-generate-vertical-tree
416 `gnus-generate-horizontal-tree' and `gnus-generate-vertical-tree'."
417 :type '(radio (function-item gnus-generate-vertical-tree)
418 (function-item gnus-generate-horizontal-tree)
420 :group 'gnus-summary-tree)
422 (defcustom gnus-tree-mode-hook nil
425 :group 'gnus-summary-tree)
428 (add-hook 'gnus-tree-mode-hook 'gnus-xmas-tree-menu-add)
429 (add-hook 'gnus-tree-mode-hook 'gnus-xmas-switch-horizontal-scrollbar-off))
434 (defvar gnus-tree-line-format-alist
435 `((?n gnus-tmp-name ?s)
436 (?f gnus-tmp-from ?s)
437 (?N gnus-tmp-number ?d)
438 (?\[ gnus-tmp-open-bracket ?c)
439 (?\] gnus-tmp-close-bracket ?c)
440 (?s gnus-tmp-subject ?s)))
442 (defvar gnus-tree-mode-line-format-alist gnus-summary-mode-line-format-alist)
444 (defvar gnus-tree-mode-line-format-spec nil)
445 (defvar gnus-tree-line-format-spec nil)
447 (defvar gnus-tree-node-length nil)
448 (defvar gnus-selected-tree-overlay nil)
450 (defvar gnus-tree-displayed-thread nil)
451 (defvar gnus-tree-inhibit nil)
453 (defvar gnus-tree-mode-map nil)
454 (put 'gnus-tree-mode 'mode-class 'special)
456 (unless gnus-tree-mode-map
457 (setq gnus-tree-mode-map (make-keymap))
458 (suppress-keymap gnus-tree-mode-map)
459 (gnus-define-keys
460 gnus-tree-mode-map
461 "\r" gnus-tree-select-article
462 gnus-mouse-2 gnus-tree-pick-article
463 "\C-?" gnus-tree-read-summary-keys
464 "h" gnus-tree-show-summary
466 "\C-c\C-i" gnus-info-find-node)
469 'undefined 'gnus-tree-read-summary-keys gnus-tree-mode-map))
471 (defun gnus-tree-make-menu-bar ()
472 (unless (boundp 'gnus-tree-menu)
474 gnus-tree-menu gnus-tree-mode-map ""
476 ["Select article" gnus-tree-select-article t]))))
478 (defun gnus-tree-mode ()
481 (gnus-set-format 'tree-mode)
482 (gnus-set-format 'tree t)
483 (when (gnus-visual-p 'tree-menu 'menu)
484 (gnus-tree-make-menu-bar))
485 (kill-all-local-variables)
486 (gnus-simplify-mode-line)
488 (setq major-mode 'gnus-tree-mode)
489 (use-local-map gnus-tree-mode-map)
494 (gnus-set-work-buffer)
495 (gnus-tree-node-insert (make-mail-header "") nil)
496 (setq gnus-tree-node-length (1- (point))))
497 (gnus-run-mode-hooks 'gnus-tree-mode-hook))
499 (defun gnus-tree-read-summary-keys (&optional arg)
502 (unless gnus-tree-inhibit
504 (gnus-tree-inhibit t)
506 (set-buffer gnus-article-buffer)
507 (gnus-article-read-summary-keys arg nil t)
510 (when gnus-selected-tree-overlay
511 (goto-char (or (gnus-overlay-end gnus-selected-tree-overlay) 1)))
512 (gnus-tree-minimize)))))
514 (defun gnus-tree-show-summary ()
517 (if (not (gnus-buffer-live-p gnus-summary-buffer))
519 (gnus-configure-windows 'article)
520 (gnus-summary-goto-subject gnus-current-article)))
522 (defun gnus-tree-select-article (article)
524 (interactive (list (gnus-tree-article-number)))
528 (set-buffer gnus-summary-buffer)
529 (gnus-summary-goto-article article))
532 (defun gnus-tree-pick-article (e)
536 (gnus-tree-select-article (gnus-tree-article-number)))
538 (defun gnus-tree-article-number ()
539 (get-text-property (point) 'gnus-number))
541 (defun gnus-tree-article-region (article)
544 (point-min) (point-max) 'gnus-number article)))
546 (cons pos (next-single-property-change pos 'gnus-number)))))
548 (defun gnus-tree-goto-article (article)
550 (point-min) (point-max) 'gnus-number article)))
554 (defun gnus-tree-recenter ()
557 (tree-window (gnus-get-buffer-window gnus-tree-buffer t)))
560 (when gnus-selected-tree-overlay
561 (goto-char (or (gnus-overlay-end gnus-selected-tree-overlay) 1)))
577 (defun gnus-get-tree-buffer ()
580 (set-buffer (gnus-get-buffer-create gnus-tree-buffer))
581 (unless (eq major-mode 'gnus-tree-mode)
582 (gnus-tree-mode))
585 (defun gnus-tree-minimize ()
586 (when (and gnus-tree-minimize-window
598 (tot (if (numberp gnus-tree-minimize-window)
599 (min gnus-tree-minimize-window min)
613 (defun gnus-tree-node-insert (header sparse &optional adopted)
622 (gnus-tmp-from (mail-header-from header))
623 (gnus-tmp-subject (mail-header-subject header))
624 (gnus-tmp-number (mail-header-number header))
625 (gnus-tmp-name
627 ((string-match "(.+)" gnus-tmp-from)
628 (substring gnus-tmp-from
630 ((string-match "<[^>]+> *$" gnus-tmp-from)
632 (or (and (string-match "^\"[^\"]*\"" gnus-tmp-from)
633 (substring gnus-tmp-from (1+ (match-beginning 0))
635 (substring gnus-tmp-from 0 beg))))
636 ((memq gnus-tmp-number sparse)
638 (t gnus-tmp-from)))
639 (gnus-tmp-open-bracket
640 (cond ((memq gnus-tmp-number sparse)
641 (caadr gnus-tree-brackets))
642 (dummy (caaddr gnus-tree-brackets))
643 (adopted (car (nth 3 gnus-tree-brackets)))
644 (t (caar gnus-tree-brackets))))
645 (gnus-tmp-close-bracket
646 (cond ((memq gnus-tmp-number sparse)
647 (cdadr gnus-tree-brackets))
648 (adopted (cdr (nth 3 gnus-tree-brackets)))
650 (cdaddr gnus-tree-brackets))
651 (t (cdar gnus-tree-brackets))))
654 (gnus-add-text-properties
656 (setq end (progn (eval gnus-tree-line-format-spec) (point)))
657 (list 'gnus-number gnus-tmp-number))
658 (when (or t (gnus-visual-p 'tree-highlight 'highlight))
659 (gnus-tree-highlight-node gnus-tmp-number beg end))))
661 (defun gnus-tree-highlight-node (article beg end)
662 "Highlight current line according to `gnus-summary-highlight'."
663 (let ((list gnus-summary-highlight)
666 (set-buffer gnus-summary-buffer)
667 (let* ((score (or (cdr (assq article gnus-newsgroup-scored))
668 gnus-summary-default-score 0))
669 (default gnus-summary-default-score)
670 (default-high gnus-summary-default-high-score)
671 (default-low gnus-summary-default-low-score)
672 (uncached (memq article gnus-newsgroup-undownloaded))
674 (mark (or (gnus-summary-article-mark article) gnus-unread-mark)))
680 (gnus-put-text-property-excluding-characters-with-faces
684 (defun gnus-tree-indent (level)
685 (insert (make-string (1- (* (1+ gnus-tree-node-length) level)) ? )))
687 (defvar gnus-tmp-limit)
688 (defvar gnus-tmp-sparse)
689 (defvar gnus-tmp-indent)
691 (defun gnus-generate-tree (thread)
694 (set-buffer (gnus-get-tree-buffer))
696 (gnus-tmp-indent 0))
698 (funcall gnus-generate-tree-function thread 0)
699 (gnus-set-mode-line 'tree)
701 (gnus-tree-minimize)
702 (gnus-tree-recenter)
704 (when (gnus-get-buffer-window (set-buffer gnus-tree-buffer) t)
705 (select-window (gnus-get-buffer-window (set-buffer gnus-tree-buffer) t))
706 (gnus-horizontal-recenter)
709 (defun gnus-generate-horizontal-tree (thread level &optional dummyp adopted)
715 gnus-tmp-limit))))
722 (insert (car gnus-tree-parent-child-edges))
725 (gnus-tree-indent level)
726 (insert (cadr gnus-tree-parent-child-edges))
727 (setq col (- (setq beg (point)) (gnus-point-at-bol) 1))
734 (insert (caddr gnus-tree-parent-child-edges)))
738 (gnus-tree-node-insert (pop thread) gnus-tmp-sparse adopted))
745 (gnus-generate-horizontal-tree
749 (defsubst gnus-tree-indent-vertical ()
750 (let ((len (- (* (1+ gnus-tree-node-length) gnus-tmp-indent)
751 (- (point) (gnus-point-at-bol)))))
755 (defsubst gnus-tree-forward-line (n)
762 (defun gnus-generate-vertical-tree (thread level &optional dummyp adopted)
768 gnus-tmp-limit))))
776 (gnus-tree-indent-vertical)
777 (insert (make-string (/ gnus-tree-node-length 2) ? ))
778 (insert (caddr gnus-tree-parent-child-edges))
779 (gnus-tree-forward-line 1))
781 (unless (zerop gnus-tmp-indent)
782 (gnus-tree-forward-line (1- (* 2 level)))
783 (gnus-tree-indent-vertical)
785 (insert (cadr gnus-tree-parent-child-edges))
792 (insert (car gnus-tree-parent-child-edges))
795 (gnus-tree-forward-line 1)))
798 (gnus-tree-indent-vertical)
799 (gnus-tree-node-insert (pop thread) gnus-tmp-sparse adopted)
800 (gnus-tree-forward-line 1))
806 (incf gnus-tmp-indent))
809 (gnus-generate-vertical-tree
815 (defun gnus-possibly-generate-tree (article &optional force)
818 (set-buffer gnus-summary-buffer)
819 (and gnus-use-trees
820 gnus-show-threads
821 (vectorp (gnus-summary-article-header article))))
824 (set-buffer gnus-summary-buffer)
825 (gnus-cut-thread
826 (gnus-remove-thread
828 (gnus-summary-article-header article))
830 (gnus-tmp-limit gnus-newsgroup-limit)
831 (gnus-tmp-sparse gnus-newsgroup-sparse))
833 (not (eq top gnus-tree-displayed-thread)))
834 (gnus-generate-tree top)
835 (setq gnus-tree-displayed-thread top))))))
837 (defun gnus-tree-open (group)
838 (gnus-get-tree-buffer))
840 (defun gnus-tree-close (group)
841 (gnus-kill-buffer gnus-tree-buffer))
843 (defun gnus-tree-perhaps-minimize ()
844 (when (and gnus-tree-minimize-window
845 (get-buffer gnus-tree-buffer))
847 (set-buffer gnus-tree-buffer)
848 (gnus-tree-minimize))))
850 (defun gnus-highlight-selected-tree (article)
854 (set-buffer gnus-tree-buffer)
855 (when (setq region (gnus-tree-article-region article))
856 (when (or (not gnus-selected-tree-overlay)
857 (gnus-extent-detached-p gnus-selected-tree-overlay))
859 (gnus-overlay-put
860 (setq gnus-selected-tree-overlay
861 (gnus-make-overlay (point-min) (1+ (point-min))))
862 'face gnus-selected-tree-face))
864 (gnus-move-overlay
865 gnus-selected-tree-overlay (goto-char (car region)) (cdr region))
866 (gnus-tree-minimize)
867 (gnus-tree-recenter)
869 (when (gnus-get-buffer-window (set-buffer gnus-tree-buffer) t)
870 (select-window (gnus-get-buffer-window (set-buffer gnus-tree-buffer) t))
871 (gnus-horizontal-recenter)
875 (set-buffer gnus-tree-buffer)
876 (gnus-set-mode-line 'tree))
879 (defun gnus-tree-highlight-article (article face)
881 (set-buffer (gnus-get-tree-buffer))
883 (when (setq region (gnus-tree-article-region article))
884 (gnus-put-text-property (car region) (cdr region) 'face face)
886 (gnus-get-buffer-window (current-buffer) t) (cdr region))))))
889 ;;; gnus-carpal
892 (defvar gnus-carpal-group-buffer-buttons
893 '(("next" . gnus-group-next-unread-group)
894 ("prev" . gnus-group-prev-unread-group)
895 ("read" . gnus-group-read-group)
896 ("select" . gnus-group-select-group)
897 ("catch-up" . gnus-group-catchup-current)
898 ("new-news" . gnus-group-get-new-news-this-group)
899 ("toggle-sub" . gnus-group-unsubscribe-current-group)
900 ("subscribe" . gnus-group-unsubscribe-group)
901 ("kill" . gnus-group-kill-group)
902 ("yank" . gnus-group-yank-group)
903 ("describe" . gnus-group-describe-group)
905 ("subscribed" . gnus-group-list-groups)
906 ("all" . gnus-group-list-all-groups)
907 ("killed" . gnus-group-list-killed)
908 ("zombies" . gnus-group-list-zombies)
909 ("matching" . gnus-group-list-matching)
910 ("post" . gnus-group-post-news)
911 ("mail" . gnus-group-mail)
912 ("local" . (lambda () (interactive) (gnus-group-news 0)))
913 ("rescan" . gnus-group-get-new-news)
914 ("browse-foreign" . gnus-group-browse-foreign)
915 ("exit" . gnus-group-exit)))
917 (defvar gnus-carpal-summary-buffer-buttons
919 ("read" . gnus-summary-mark-as-read-forward)
920 ("tick" . gnus-summary-tick-article-forward)
921 ("clear" . gnus-summary-clear-mark-forward)
922 ("expirable" . gnus-summary-mark-as-expirable)
924 ("scroll" . gnus-summary-next-page)
925 ("next-unread" . gnus-summary-next-unread-article)
926 ("prev-unread" . gnus-summary-prev-unread-article)
927 ("first" . gnus-summary-first-unread-article)
928 ("best" . gnus-summary-best-unread-article)
930 ("headers" . gnus-summary-toggle-header)
931 ("uudecode" . gnus-uu-decode-uu)
932 ("enter-digest" . gnus-summary-enter-digest-group)
933 ("fetch-parent" . gnus-summary-refer-parent-article)
935 ("move" . gnus-summary-move-article)
936 ("copy" . gnus-summary-copy-article)
937 ("respool" . gnus-summary-respool-article)
939 ("lower" . gnus-summary-lower-thread)
940 ("kill" . gnus-summary-kill-thread)
942 ("post" . gnus-summary-post-news)
943 ("local" . gnus-summary-news-other-window)
944 ("mail" . gnus-summary-mail-other-window)
945 ("followup" . gnus-summary-followup-with-original)
946 ("reply" . gnus-summary-reply-with-original)
947 ("cancel" . gnus-summary-cancel-article)
949 ("exit" . gnus-summary-exit)
950 ("fed-up" . gnus-summary-catchup-and-goto-next-group)))
952 (defvar gnus-carpal-server-buffer-buttons
953 '(("add" . gnus-server-add-server)
954 ("browse" . gnus-server-browse-server)
955 ("list" . gnus-server-list-servers)
956 ("kill" . gnus-server-kill-server)
957 ("yank" . gnus-server-yank-server)
958 ("copy" . gnus-server-copy-server)
959 ("exit" . gnus-server-exit)))
961 (defvar gnus-carpal-browse-buffer-buttons
962 '(("subscribe" . gnus-browse-unsubscribe-current-group)
963 ("exit" . gnus-browse-exit)))
965 (defvar gnus-carpal-group-buffer "*Carpal Group*")
966 (defvar gnus-carpal-summary-buffer "*Carpal Summary*")
967 (defvar gnus-carpal-server-buffer "*Carpal Server*")
968 (defvar gnus-carpal-browse-buffer "*Carpal Browse*")
970 (defvar gnus-carpal-attached-buffer nil)
972 (defvar gnus-carpal-mode-hook nil
975 (defvar gnus-carpal-button-face 'bold
978 (defvar gnus-carpal-header-face 'bold-italic
981 (defvar gnus-carpal-mode-map nil)
982 (put 'gnus-carpal-mode 'mode-class 'special)
984 (if gnus-carpal-mode-map
986 (setq gnus-carpal-mode-map (make-keymap))
987 (suppress-keymap gnus-carpal-mode-map)
988 (define-key gnus-carpal-mode-map " " 'gnus-carpal-select)
989 (define-key gnus-carpal-mode-map "\r" 'gnus-carpal-select)
990 (define-key gnus-carpal-mode-map gnus-mouse-2 'gnus-carpal-mouse-select))
992 (defun gnus-carpal-mode ()
996 \\<gnus-carpal-mode-map>
999 \\{gnus-carpal-mode-map}"
1001 (kill-all-local-variables)
1002 (setq mode-line-modified (cdr gnus-mode-line-modified))
1003 (setq major-mode 'gnus-carpal-mode)
1006 (use-local-map gnus-carpal-mode-map)
1009 (make-local-variable 'gnus-carpal-attached-buffer)
1010 (gnus-run-mode-hooks 'gnus-carpal-mode-hook))
1012 (defun gnus-carpal-setup-buffer (type)
1013 (let ((buffer (symbol-value (intern (format "gnus-carpal-%s-buffer" type)))))
1017 (set-buffer (gnus-get-buffer-create buffer))
1018 (gnus-carpal-mode)
1019 (setq gnus-carpal-attached-buffer
1020 (intern (format "gnus-%s-buffer" type)))
1022 (intern (format "gnus-carpal-%s-buffer-buttons"
1030 (gnus-set-text-properties
1033 (list 'face gnus-carpal-header-face))
1034 (gnus-set-text-properties
1037 (list 'gnus-callback (cdr button)
1038 'face gnus-carpal-button-face
1039 gnus-mouse-face-prop 'highlight))))
1045 (defun gnus-carpal-select ()
1048 (let ((func (get-text-property (point) 'gnus-callback)))
1051 (pop-to-buffer (symbol-value gnus-carpal-attached-buffer))
1054 (defun gnus-carpal-mouse-select (event)
1058 (gnus-carpal-select))
1061 (gnus-ems-redefine)
1063 (provide 'gnus-salt)
1066 ;;; gnus-salt.el ends here