branch: externals/debbugs
commit 5f5509b81f90fb433f1508dc1ac0cbbed1ee7e1c
Author: Michael Albinus <[email protected]>
Commit: Michael Albinus <[email protected]>
* debbugs-gnu.el (debbugs-gnu-get-bugs): It is sufficient to have
just one `debbugs-get-bugs' call.
---
ChangeLog | 5 +++++
debbugs-gnu.el | 21 ++++++++++-----------
2 files changed, 15 insertions(+), 11 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index fabf6eb..48666e9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-17 Michael Albinus <[email protected]>
+
+ * debbugs-gnu.el (debbugs-gnu-get-bugs): It is sufficient to have
+ just one `debbugs-get-bugs' call.
+
2011-07-17 Evgeny M. Zubok <[email protected]>
* debbugs.el (debbugs-get-bugs): Add search keywords :src :maint
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index 54922c0..5b832da 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -273,17 +273,16 @@
(defun debbugs-gnu-get-bugs ()
"Retrieve bugs numbers from debbugs.gnu.org according search criteria."
(let ((debbugs-port "gnu.org")
- args ids)
- (dolist (severity debbugs-gnu-current-severities (sort ids '<))
- (if (string-equal severity "tagged")
- (setq ids (nconc ids (copy-sequence debbugs-gnu-local-tags)))
- (dolist (package debbugs-gnu-current-packages)
- (setq args `(:archive ,debbugs-gnu-current-archive))
- (when (not (zerop (length severity)))
- (setq args (append args `(:severity ,severity))))
- (when (not (zerop (length package)))
- (setq args (append args `(:package ,package))))
- (setq ids (nconc ids (apply 'debbugs-get-bugs args))))))))
+ (args `(:archive ,debbugs-gnu-current-archive))
+ (ids (when (member "tagged" debbugs-gnu-current-severities)
+ (copy-sequence debbugs-gnu-local-tags))))
+ (dolist (severity (delete "tagged" debbugs-gnu-current-severities))
+ (when (not (zerop (length severity)))
+ (setq args (append args `(:severity ,severity)))))
+ (dolist (package debbugs-gnu-current-packages)
+ (when (not (zerop (length package)))
+ (setq args (append args `(:package ,package)))))
+ (sort (nconc ids (apply 'debbugs-get-bugs args)) '<)))
(defvar debbugs-gnu-current-widget nil)
