Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-nocem.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
137 (when (or (not date) 137 (when (or (not date)
138 (nnmail-time-less 138 (nnmail-time-less
139 (nnmail-time-since (nnmail-date-to-time date)) 139 (nnmail-time-since (nnmail-date-to-time date))
140 (nnmail-days-to-time gnus-nocem-expiry-wait))) 140 (nnmail-days-to-time gnus-nocem-expiry-wait)))
141 (gnus-request-article-this-buffer (mail-header-number header) group) 141 (gnus-request-article-this-buffer (mail-header-number header) group)
142 (goto-char (point-min))
142 ;; The article has to have proper NoCeM headers. 143 ;; The article has to have proper NoCeM headers.
143 (when (and (setq b (search-forward "\n@@BEGIN NCM HEADERS\n" nil t)) 144 (when (and (setq b (search-forward "\n@@BEGIN NCM HEADERS\n" nil t))
144 (setq e (search-forward "\n@@BEGIN NCM BODY\n" nil t))) 145 (setq e (search-forward "\n@@BEGIN NCM BODY\n" nil t)))
145 ;; We get the name of the issuer. 146 ;; We get the name of the issuer.
146 (narrow-to-region b e) 147 (narrow-to-region b e)