Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-sum.el @ 163:0132846995bd r20-3b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b8
author cvs
date Mon, 13 Aug 2007 09:43:35 +0200
parents 43dd3413c7c7
children 85ec50267440
comparison
equal deleted inserted replaced
162:4de2936b4e77 163:0132846995bd
1034 ;; Non-orthogonal keys 1034 ;; Non-orthogonal keys
1035 1035
1036 (gnus-define-keys gnus-summary-mode-map 1036 (gnus-define-keys gnus-summary-mode-map
1037 " " gnus-summary-next-page 1037 " " gnus-summary-next-page
1038 "\177" gnus-summary-prev-page 1038 "\177" gnus-summary-prev-page
1039 [backspace] gnus-summary-prev-page
1039 [delete] gnus-summary-prev-page 1040 [delete] gnus-summary-prev-page
1040 "\r" gnus-summary-scroll-up 1041 "\r" gnus-summary-scroll-up
1041 "n" gnus-summary-next-unread-article 1042 "n" gnus-summary-next-unread-article
1042 "p" gnus-summary-prev-unread-article 1043 "p" gnus-summary-prev-unread-article
1043 "N" gnus-summary-next-article 1044 "N" gnus-summary-next-article
1191 "f" gnus-summary-first-unread-article 1192 "f" gnus-summary-first-unread-article
1192 "b" gnus-summary-best-unread-article 1193 "b" gnus-summary-best-unread-article
1193 "j" gnus-summary-goto-article 1194 "j" gnus-summary-goto-article
1194 "g" gnus-summary-goto-subject 1195 "g" gnus-summary-goto-subject
1195 "l" gnus-summary-goto-last-article 1196 "l" gnus-summary-goto-last-article
1196 "p" gnus-summary-pop-article) 1197 "o" gnus-summary-pop-article)
1197 1198
1198 (gnus-define-keys (gnus-summary-thread-map "T" gnus-summary-mode-map) 1199 (gnus-define-keys (gnus-summary-thread-map "T" gnus-summary-mode-map)
1199 "k" gnus-summary-kill-thread 1200 "k" gnus-summary-kill-thread
1200 "l" gnus-summary-lower-thread 1201 "l" gnus-summary-lower-thread
1201 "i" gnus-summary-raise-thread 1202 "i" gnus-summary-raise-thread
1233 1234
1234 (gnus-define-keys (gnus-summary-article-map "A" gnus-summary-mode-map) 1235 (gnus-define-keys (gnus-summary-article-map "A" gnus-summary-mode-map)
1235 " " gnus-summary-next-page 1236 " " gnus-summary-next-page
1236 "n" gnus-summary-next-page 1237 "n" gnus-summary-next-page
1237 "\177" gnus-summary-prev-page 1238 "\177" gnus-summary-prev-page
1239 [backspace] gnus-summary-prev-page
1238 [delete] gnus-summary-prev-page 1240 [delete] gnus-summary-prev-page
1239 "p" gnus-summary-prev-page 1241 "p" gnus-summary-prev-page
1240 "\r" gnus-summary-scroll-up 1242 "\r" gnus-summary-scroll-up
1241 "<" gnus-summary-beginning-of-article 1243 "<" gnus-summary-beginning-of-article
1242 ">" gnus-summary-end-of-article 1244 ">" gnus-summary-end-of-article
1305 1307
1306 (gnus-define-keys (gnus-summary-backend-map "B" gnus-summary-mode-map) 1308 (gnus-define-keys (gnus-summary-backend-map "B" gnus-summary-mode-map)
1307 "e" gnus-summary-expire-articles 1309 "e" gnus-summary-expire-articles
1308 "\M-\C-e" gnus-summary-expire-articles-now 1310 "\M-\C-e" gnus-summary-expire-articles-now
1309 "\177" gnus-summary-delete-article 1311 "\177" gnus-summary-delete-article
1312 [backspace] gnus-summary-delete-article
1310 [delete] gnus-summary-delete-article 1313 [delete] gnus-summary-delete-article
1311 "m" gnus-summary-move-article 1314 "m" gnus-summary-move-article
1312 "r" gnus-summary-respool-article 1315 "r" gnus-summary-respool-article
1313 "w" gnus-summary-edit-article 1316 "w" gnus-summary-edit-article
1314 "c" gnus-summary-copy-article 1317 "c" gnus-summary-copy-article
4995 (unless gnus-dead-summary-mode-map 4998 (unless gnus-dead-summary-mode-map
4996 (setq gnus-dead-summary-mode-map (make-keymap)) 4999 (setq gnus-dead-summary-mode-map (make-keymap))
4997 (suppress-keymap gnus-dead-summary-mode-map) 5000 (suppress-keymap gnus-dead-summary-mode-map)
4998 (substitute-key-definition 5001 (substitute-key-definition
4999 'undefined 'gnus-summary-wake-up-the-dead gnus-dead-summary-mode-map) 5002 'undefined 'gnus-summary-wake-up-the-dead gnus-dead-summary-mode-map)
5000 (let ((keys '("\C-d" "\r" "\177"))) 5003 (let ((keys '("\C-d" "\r" "\177" [backspace] [delete])))
5001 (while keys 5004 (while keys
5002 (define-key gnus-dead-summary-mode-map 5005 (define-key gnus-dead-summary-mode-map
5003 (pop keys) 'gnus-summary-wake-up-the-dead)))) 5006 (pop keys) 'gnus-summary-wake-up-the-dead))))
5004 5007
5005 (defvar gnus-dead-summary-mode nil 5008 (defvar gnus-dead-summary-mode nil
5081 (interactive 5084 (interactive
5082 (list 5085 (list
5083 (when current-prefix-arg 5086 (when current-prefix-arg
5084 (completing-read 5087 (completing-read
5085 "Faq dir: " (and (listp gnus-group-faq-directory) 5088 "Faq dir: " (and (listp gnus-group-faq-directory)
5086 gnus-group-faq-directory))))) 5089 (mapcar (lambda (file) (list file))
5090 gnus-group-faq-directory))))))
5087 (let (gnus-faq-buffer) 5091 (let (gnus-faq-buffer)
5088 (when (setq gnus-faq-buffer 5092 (when (setq gnus-faq-buffer
5089 (gnus-group-fetch-faq gnus-newsgroup-name faq-dir)) 5093 (gnus-group-fetch-faq gnus-newsgroup-name faq-dir))
5090 (gnus-configure-windows 'summary-faq)))) 5094 (gnus-configure-windows 'summary-faq))))
5091 5095