[ELPA-diffs] ELPA branch, master, updated. df4e1c2479b41e6fe78c859c9f1303b6cf164af6

2014-01-08 Thread Michael Albinus
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "ELPA".

The branch, master has been updated
   via  df4e1c2479b41e6fe78c859c9f1303b6cf164af6 (commit)
  from  8ef5c403755ac1754a8a3ae9a5c097ab827f4feb (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -
commit df4e1c2479b41e6fe78c859c9f1303b6cf164af6
Author: Michael Albinus 
Date:   Wed Jan 8 10:16:00 2014 +0100

* debbugs-org.el (debbugs-org-show-reports): Add a minor mode header line.
(debbugs-org-regenerate-status): Remove (interactive).  Not needed anymore.
(debbugs-org-mode-map): Remove "C-c # g" key binding.  Not needed anymore.
(debbugs-org-mode): Autoload it.  Apply `debbugs-org-regenerate-status'.

diff --git a/packages/debbugs/debbugs-org.el b/packages/debbugs/debbugs-org.el
index 7c4d108..2d83a81 100644
--- a/packages/debbugs/debbugs-org.el
+++ b/packages/debbugs/debbugs-org.el
@@ -84,18 +84,12 @@
 ;;   "C-c # C": Send a debbugs control message
 ;;   "C-c # t": Mark the bug locally as tagged
 ;;   "C-c # d": Show bug attributes
-;;   "C-c # g": Regenerate text properties with status
 
 ;; The last entry in a TODO record is the link [[Messages]].  If you
 ;; follow this link, a Gnus ephemeral group is opened presenting all
 ;; related messages for this bug.  Here you could also send debbugs
 ;; control messages by keystroke "C".
 
-;; Note that following the [[Messages]] link will only work if you
-;; generated the list of bugs from the current session, or if you hit
-;; C-c # g which will regenerate the text properties containing the
-;; bug status (i.e. the bug number).
-
 ;; Finally, if you simply want to list some bugs with known bug
 ;; numbers, call the command
 ;;
@@ -281,6 +275,9 @@ returned."
   (let ((inhibit-read-only t)
(debbugs-port "gnu.org"))
 
+(when (= (point) (point-min))
+  (insert "# -*- eval: (debbugs-org-mode 1); -*-\n\n"))
+
 (dolist (status
 (sort
  (apply 'debbugs-get-status bug-numbers)
@@ -370,7 +367,6 @@ returned."
 This property is used when following the [Messages] link, so you
 need to regenerate it when opening an .org file after you killed
 the corresponding buffer (e.g. by closing Emacs.)"
-  (interactive)
   (save-excursion
 (goto-char (point-min))
 (while (re-search-forward ":DEBBUGS_ID:[ \t]*\\([0-9]+\\)" nil t)
@@ -406,13 +402,13 @@ the corresponding buffer (e.g. by closing Emacs.)"
 (define-key map (kbd "C-c # t") 'debbugs-gnu-toggle-tag)
 (define-key map (kbd "C-c # C") 'debbugs-gnu-send-control-message)
 (define-key map (kbd "C-c # d") 'debbugs-gnu-display-status)
-(define-key map (kbd "C-c # g") 'debbugs-org-regenerate-status)
 map)
   "Keymap for the `debbugs-org-mode' minor mode.")
 
 ;; Make byte-compiler quiet.
 (defvar gnus-posting-styles)
 
+;;;###autoload
 (define-minor-mode debbugs-org-mode
   "Minor mode for providing a debbugs interface in org-mode buffers.
 
@@ -430,7 +426,8 @@ the corresponding buffer (e.g. by closing Emacs.)"
  ("[0-9]+@debbugs.*" "qu...@debbugs.gnu.org")))
   ;; `gnus-posting-styles' is eval'ed after
   ;; `message-simplify-subject'.  So we cannot use m-s-s.
-  (setq subject ,debbugs-gnu-subject
+  (setq subject ,debbugs-gnu-subject)))
+  (debbugs-org-regenerate-status))
 
 ;;;###autoload
 (defun debbugs-org-bugs (&rest bugs)

---

Summary of changes:
 packages/debbugs/debbugs-org.el |   15 ++-
 1 files changed, 6 insertions(+), 9 deletions(-)


hooks/post-receive
-- 
ELPA



[ELPA-diffs] ELPA branch, master, updated. 0bde9b0c74c8e1d14c5a11458549f80b2a371c36

2014-01-08 Thread Michael Albinus
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "ELPA".

The branch, master has been updated
   via  0bde9b0c74c8e1d14c5a11458549f80b2a371c36 (commit)
  from  df4e1c2479b41e6fe78c859c9f1303b6cf164af6 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -
commit 0bde9b0c74c8e1d14c5a11458549f80b2a371c36
Author: Michael Albinus 
Date:   Wed Jan 8 15:03:19 2014 +0100

* debbugs-gnu.el (debbugs-gnu): Handle SUPPRESS properly.

* debbugs-org.el (debbugs-org): Add SUPPRESS argument.

diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index 213eaaf..d59fab7 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -464,6 +464,9 @@ marked as \"client-side filter\"."
   (add-to-list 'debbugs-gnu-current-query (cons 'package package
   (when archivedp
 (add-to-list 'debbugs-gnu-current-query '(archive . "1")))
+  (when suppress
+(add-to-list 'debbugs-gnu-current-query '(status . "open"))
+(add-to-list 'debbugs-gnu-current-query '(status . "forwarded")))
   (dolist (tag (if (consp tags) tags (list tags)))
 (when (not (zerop (length tag)))
   (add-to-list 'debbugs-gnu-current-query (cons 'tag tag
diff --git a/packages/debbugs/debbugs-org.el b/packages/debbugs/debbugs-org.el
index 2d83a81..e2f39ca 100644
--- a/packages/debbugs/debbugs-org.el
+++ b/packages/debbugs/debbugs-org.el
@@ -199,7 +199,7 @@ returned."
 (setq debbugs-gnu-current-query nil)))
 
 ;;;###autoload
-(defun debbugs-org (severities &optional packages archivedp tags)
+(defun debbugs-org (severities &optional packages archivedp suppress tags)
   "List all outstanding bugs."
   (interactive
(let (severities archivedp)
@@ -216,6 +216,8 @@ returned."
debbugs-gnu-default-packages)
   (when current-prefix-arg
(setq archivedp (y-or-n-p "Show archived bugs?")))
+  (when (and current-prefix-arg (not archivedp))
+   (y-or-n-p "Suppress unwanted bugs?"))
   ;; This one must be asked for severity "tagged".
   (when (member "tagged" severities)
(split-string (read-string "User tag(s): ") "," t)
@@ -236,6 +238,9 @@ returned."
   (add-to-list 'debbugs-gnu-current-query (cons 'package package
   (when archivedp
 (add-to-list 'debbugs-gnu-current-query '(archive . "1")))
+  (when suppress
+(add-to-list 'debbugs-gnu-current-query '(status . "open"))
+(add-to-list 'debbugs-gnu-current-query '(status . "forwarded")))
   (dolist (tag (if (consp tags) tags (list tags)))
 (when (not (zerop (length tag)))
   (add-to-list 'debbugs-gnu-current-query (cons 'tag tag

---

Summary of changes:
 packages/debbugs/debbugs-gnu.el |3 +++
 packages/debbugs/debbugs-org.el |7 ++-
 2 files changed, 9 insertions(+), 1 deletions(-)


hooks/post-receive
-- 
ELPA