Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-sum.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 25f70ba0133c
children 0132846995bd
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
616 is not run if `gnus-visual' is nil." 616 is not run if `gnus-visual' is nil."
617 :group 'gnus-summary-visual 617 :group 'gnus-summary-visual
618 :type 'hook) 618 :type 'hook)
619 619
620 (defcustom gnus-parse-headers-hook 620 (defcustom gnus-parse-headers-hook
621 (list 'gnus-decode-rfc1522) 621 (list 'gnus-hack-decode-rfc1522 'gnus-decode-rfc1522)
622 "*A hook called before parsing the headers." 622 "*A hook called before parsing the headers."
623 :group 'gnus-various 623 :group 'gnus-various
624 :type 'hook) 624 :type 'hook)
625 625
626 (defcustom gnus-exit-group-hook nil 626 (defcustom gnus-exit-group-hook nil
6050 (if (and gnus-use-nocem 6050 (if (and gnus-use-nocem
6051 (gnus-nocem-unwanted-article-p 6051 (gnus-nocem-unwanted-article-p
6052 (mail-header-id (car thread)))) 6052 (mail-header-id (car thread))))
6053 (progn 6053 (progn
6054 (setq gnus-newsgroup-reads 6054 (setq gnus-newsgroup-reads
6055 (delq number gnus-newsgroup-unreads)) 6055 (delq number gnus-newsgroup-reads))
6056 t)))) 6056 t))))
6057 ;; Nope, invisible article. 6057 ;; Nope, invisible article.
6058 0 6058 0
6059 ;; Ok, this article is to be visible, so we add it to the limit 6059 ;; Ok, this article is to be visible, so we add it to the limit
6060 ;; and return 1. 6060 ;; and return 1.