Mercurial > emacs

comparison lisp/gnus-nocem.el @ 15559:8d8bf85d356a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Synched with Gnus 5.2.31.
author Lars Magne Ingebrigtsen <larsi@gnus.org>
date Sat, 29 Jun 1996 00:29:17 +0000
parents 47d9b7a1dee3
children
comparison
equal deleted inserted replaced
15558:18364c2808f7 15559:8d8bf85d356a
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)