Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-sum.el @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents 15872534500d
children
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
5016 (make-local-variable 'gnus-dead-summary-mode) 5016 (make-local-variable 'gnus-dead-summary-mode)
5017 (setq gnus-dead-summary-mode 5017 (setq gnus-dead-summary-mode
5018 (if (null arg) (not gnus-dead-summary-mode) 5018 (if (null arg) (not gnus-dead-summary-mode)
5019 (> (prefix-numeric-value arg) 0))) 5019 (> (prefix-numeric-value arg) 0)))
5020 (when gnus-dead-summary-mode 5020 (when gnus-dead-summary-mode
5021 (unless (assq 'gnus-dead-summary-mode minor-mode-alist) 5021 (gnus-add-minor-mode
5022 (push '(gnus-dead-summary-mode " Dead") minor-mode-alist)) 5022 'gnus-dead-summary-mode " Dead" gnus-dead-summary-mode-map))))
5023 (unless (assq 'gnus-dead-summary-mode minor-mode-map-alist)
5024 (push (cons 'gnus-dead-summary-mode gnus-dead-summary-mode-map)
5025 minor-mode-map-alist)))))
5026 5023
5027 (defun gnus-deaden-summary () 5024 (defun gnus-deaden-summary ()
5028 "Make the current summary buffer into a dead summary buffer." 5025 "Make the current summary buffer into a dead summary buffer."
5029 ;; Kill any previous dead summary buffer. 5026 ;; Kill any previous dead summary buffer.
5030 (when (and gnus-dead-summary 5027 (when (and gnus-dead-summary