[elpa] externals/debbugs 5f5509b 062/311: * debbugs-gnu.el (debbugs-gnu-get-bugs): It is sufficient to have

[Stefan Monnier]

branch: externals/debbugs
commit 5f5509b81f90fb433f1508dc1ac0cbbed1ee7e1c
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>

    * 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  <michael.albinus@gmx.de>
+
+       * debbugs-gnu.el (debbugs-gnu-get-bugs): It is sufficient to have
+       just one `debbugs-get-bugs' call.
+
 2011-07-17  Evgeny M. Zubok <zoubok@mail.ru>
 
        * 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)