Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmail.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents 8b8b7f3559a2
children 131b0175ea99
comparison
equal deleted inserted replaced
43:23cafc5d2038 44:8d2a9b52c682
1414 (setq nnmail-cache-buffer nil) 1414 (setq nnmail-cache-buffer nil)
1415 (kill-buffer (current-buffer))))) 1415 (kill-buffer (current-buffer)))))
1416 1416
1417 (defun nnmail-cache-insert (id) 1417 (defun nnmail-cache-insert (id)
1418 (when nnmail-treat-duplicates 1418 (when nnmail-treat-duplicates
1419 (unless (buffer-live-p nnmail-cache-buffer) 1419 (unless (gnus-buffer-live-p nnmail-cache-buffer)
1420 (nnmail-cache-open)) 1420 (nnmail-cache-open))
1421 (save-excursion 1421 (save-excursion
1422 (set-buffer nnmail-cache-buffer) 1422 (set-buffer nnmail-cache-buffer)
1423 (goto-char (point-max)) 1423 (goto-char (point-max))
1424 (insert id "\n")))) 1424 (insert id "\n"))))