Re: org-debbugs.el

[Michael Albinus <michael.albinus@gmx.de>]

[-- Attachment #1: Type: text/plain, Size: 769 bytes --]

Michael Albinus <michael.albinus@gmx.de> writes:

Hi Suvayu,

>> I tried to test by looking for a specific bug.  This is what I tried:
>>
>> - search phrase: emacsclient
>> - submitter: fatkasuvayu (that is leading part of my email address)
>> - status: done or nothing
>>
>> But then I get an empty "*Org Bugs*" buffer.
>
> Hmm, yes. But this seems to be a server side problem.

I still have no idea why the submitter does not work. However, there are
more attributes which could be used. I have added the "author" keyword
to the `org-debbugs-search' interface. This gives you all bugs, for
which you have sent an email with the given email address (or a
substring of). Patch appended.

Try

- search phrase: emacsclient
- author: fatkasuvayu

Best regards, Michael.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-org-debbugs.el-org-debbugs-search-Accept-empty-phras.patch --]
[-- Type: text/x-diff, Size: 1812 bytes --]

From 3c2ef9d8f8aa0da8dc0c2d8514a52b52ec36ed9b Mon Sep 17 00:00:00 2001
From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 4 Oct 2013 21:12:08 +0200
Subject: [PATCH] * org-debbugs.el (org-debbugs-search): Accept empty phrase.
 Add keyword "author". (org-debbugs-show-next-reports): Make "Next bugs" an
 own entry.

---
 contrib/lisp/org-debbugs.el | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/contrib/lisp/org-debbugs.el b/contrib/lisp/org-debbugs.el
index fe5430e..9ab805e 100644
--- a/contrib/lisp/org-debbugs.el
+++ b/contrib/lisp/org-debbugs.el
@@ -144,16 +144,14 @@ returned."
 
 	;; Check for the phrase.
 	(setq phrase (read-string debbugs-gnu-phrase-prompt))
-	(if (zerop (length phrase))
-	    (setq phrase nil)
-	  (add-to-list 'debbugs-gnu-current-query (cons 'phrase phrase)))
+	(add-to-list 'debbugs-gnu-current-query (cons 'phrase phrase))
 
 	;; The other queries.
 	(catch :finished
 	  (while t
 	    (setq key (completing-read
 		       "Enter attribute: "
-		       '("severity" "package" "tags" "submitter"
+		       '("severity" "package" "tags" "submitter" "author"
 			 "subject" "status")
 		       nil t))
 	    (cond
@@ -178,7 +176,8 @@ returned."
 		(add-to-list
 		 'debbugs-gnu-current-query (cons (intern key) val1))))
 
-	     ((equal key "submitter")
+	     ((member key '("submitter" "author"))
+	      (when (equal key "author") (setq key "@author"))
 	      (setq val1 (read-string "Enter email address: "))
 	      (when (not (zerop (length val1)))
 		(add-to-list
@@ -405,7 +404,7 @@ returned."
 	(goto-char (point-max))
 	(insert
 	 (format
-	  "[[elisp:(org-debbugs-show-next-reports %s)][Next bugs]]\n"
+	  "* [[elisp:(org-debbugs-show-next-reports %s)][Next bugs]]\n"
 	  hits))))))
 
 (defconst org-debbugs-mode-map
-- 
1.8.1.2