projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch to No Gnus 200405141948.
[elisp/gnus.git-]
/
lisp
/
gnus-dup.el
diff --git
a/lisp/gnus-dup.el
b/lisp/gnus-dup.el
index
a2b5544
..
a385d0a
100644
(file)
--- a/
lisp/gnus-dup.el
+++ b/
lisp/gnus-dup.el
@@
-154,7
+154,8
@@
seen in the same session."
(defun gnus-dup-unsuppress-article (article)
"Stop suppression of ARTICLE."
(defun gnus-dup-unsuppress-article (article)
"Stop suppression of ARTICLE."
- (let ((id (mail-header-id (gnus-data-header (gnus-data-find article)))))
+ (let* ((header (gnus-data-header (gnus-data-find article)))
+ (id (when header (mail-header-id header))))
(when id
(setq gnus-dup-list-dirty t)
(setq gnus-dup-list (delete id gnus-dup-list))
(when id
(setq gnus-dup-list-dirty t)
(setq gnus-dup-list (delete id gnus-dup-list))