Michael Albinus <michael.albi...@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.
>From 3c2ef9d8f8aa0da8dc0c2d8514a52b52ec36ed9b Mon Sep 17 00:00:00 2001
From: Michael Albinus <michael.albi...@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
