diff options
| author | Yuri D'Elia <wavexx@thregr.org> | 2011-01-03 20:02:28 +0100 |
|---|---|---|
| committer | Yuri D'Elia <wavexx@thregr.org> | 2011-01-03 20:02:28 +0100 |
| commit | 5a9192973d9098762307546e03313bacebd9edf7 (patch) | |
| tree | 2ec90d80c19ed768f531c3c616909be2760ca91d /gnus-desktop-notify.el | |
| parent | 63aa1737e07b398e8e4d31c6ed5a16c0f35be202 (diff) | |
Use `gnus-range-normalize' instead of parsing `gnus-info-read' manually.
Diffstat (limited to 'gnus-desktop-notify.el')
| -rw-r--r-- | gnus-desktop-notify.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/gnus-desktop-notify.el b/gnus-desktop-notify.el index bb54e5d..78f4440 100644 --- a/gnus-desktop-notify.el +++ b/gnus-desktop-notify.el @@ -194,15 +194,12 @@ with the behavior defined by `gnus-desktop-notify-send-mode'." (let ( (updated-groups '()) ) (dolist (g gnus-newsrc-alist) (let* ( (name (gnus-info-group g)) - (read (or - (and (listp (car (gnus-info-read g))) - (cdar (gnus-info-read g))) - (cdr (gnus-info-read g)))) + (read (cdar (gnus-range-normalize (gnus-info-read g)))) (unread (gnus-group-unread name)) ) (when (and (numberp read) (numberp unread)) - (let* ( (count (+ read unread)) - (old-count (cdr (assoc name gnus-desktop-notify-counts))) - (notify (gnus-group-find-parameter name 'group-notify)) ) + (let ( (count (+ read unread)) + (old-count (cdr (assoc name gnus-desktop-notify-counts))) + (notify (gnus-group-find-parameter name 'group-notify)) ) (when (or (and (eq gnus-desktop-notify-groups 'gnus-desktop-notify-all-except) (not notify)) (and (eq gnus-desktop-notify-groups 'gnus-desktop-notify-explicit) notify)) |