Mercurial > emacs
comparison lisp/gnus/nnmail.el @ 110650:fd57b3f422fb
* lisp/gnus/nnmail.el (group, group-art-list, group-art):
Remove unneeded directives.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 29 Sep 2010 15:38:27 +0200 |
parents | eff33de9a3ff |
children | 42815c76b976 |
comparison
equal
deleted
inserted
replaced
110649:2f0d755fa21b | 110650:fd57b3f422fb |
---|---|
1609 nnmail-message-id-cache-file nil 'silent) | 1609 nnmail-message-id-cache-file nil 'silent) |
1610 (set-buffer-modified-p nil) | 1610 (set-buffer-modified-p nil) |
1611 (setq nnmail-cache-buffer nil) | 1611 (setq nnmail-cache-buffer nil) |
1612 (gnus-kill-buffer (current-buffer))))) | 1612 (gnus-kill-buffer (current-buffer))))) |
1613 | 1613 |
1614 ;; Compiler directives. | |
1615 (defvar group) | |
1616 (defvar group-art-list) | |
1617 (defvar group-art) | |
1618 (defun nnmail-cache-insert (id grp &optional subject sender) | 1614 (defun nnmail-cache-insert (id grp &optional subject sender) |
1619 (when (stringp id) | 1615 (when (stringp id) |
1620 ;; this will handle cases like `B r' where the group is nil | 1616 ;; this will handle cases like `B r' where the group is nil |
1621 (let ((grp (or grp gnus-newsgroup-name "UNKNOWN"))) | 1617 (let ((grp (or grp gnus-newsgroup-name "UNKNOWN"))) |
1622 (run-hook-with-args 'nnmail-spool-hook | 1618 (run-hook-with-args 'nnmail-spool-hook |