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 |