From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/77922 Path: news.gmane.org!not-for-mail From: Ted Zlatanov Newsgroups: gmane.emacs.devel,gmane.emacs.gnus.general Subject: Re: can Gnus simply use the Emacs bug tracker? Date: Thu, 17 Mar 2011 14:12:13 -0500 Organization: =?utf-8?B?0KLQtdC+0LTQvtGAINCX0LvQsNGC0LDQvdC+0LI=?= @ Cienfuegos Message-ID: <874o7136k2.fsf@lifelogs.com> References: <8762rk2vah.fsf@lifelogs.com> <6iy64gxk4z.fsf@fencepost.gnu.org> <87lj0gyxld.fsf@lifelogs.com> <877hbzxj11.fsf@lifelogs.com> <8739mmvrbe.fsf@lifelogs.com> <87ei654pyi.fsf@lifelogs.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: dough.gmane.org 1300389166 5959 80.91.229.12 (17 Mar 2011 19:12:46 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 17 Mar 2011 19:12:46 +0000 (UTC) Cc: ding@gnus.org To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Mar 17 20:12:41 2011 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Q0Ich-0003n1-TI for ged-emacs-devel@m.gmane.org; Thu, 17 Mar 2011 20:12:40 +0100 Original-Received: from localhost ([127.0.0.1]:47008 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Q0Ich-0000WS-7G for ged-emacs-devel@m.gmane.org; Thu, 17 Mar 2011 15:12:39 -0400 Original-Received: from [140.186.70.92] (port=37391 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Q0Ica-0000WA-51 for emacs-devel@gnu.org; Thu, 17 Mar 2011 15:12:35 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Q0IcW-0004cg-3N for emacs-devel@gnu.org; Thu, 17 Mar 2011 15:12:32 -0400 Original-Received: from lo.gmane.org ([80.91.229.12]:58317) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Q0IcV-0004cY-Ph for emacs-devel@gnu.org; Thu, 17 Mar 2011 15:12:28 -0400 Original-Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1Q0IcU-0003eT-6j for emacs-devel@gnu.org; Thu, 17 Mar 2011 20:12:26 +0100 Original-Received: from 38.98.147.130 ([38.98.147.130]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 17 Mar 2011 20:12:26 +0100 Original-Received: from tzz by 38.98.147.130 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 17 Mar 2011 20:12:26 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 116 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: 38.98.147.130 X-Face: bd.DQ~'29fIs`T_%O%C\g%6jW)yi[zuz6; d4V0`@y-~$#3P_Ng{@m+e4o<4P'#(_GJQ%TT= D}[Ep*b!\e,fBZ'j_+#"Ps?s2!4H2-Y"sx" User-Agent: Gnus/5.110014 (No Gnus v0.14) Emacs/24.0.50 (gnu/linux) Cancel-Lock: sha1:03mY1kwLfFrp7JqjtBm1yXqISiM= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Received-From: 80.91.229.12 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:137361 gmane.emacs.gnus.general:77922 Archived-At: --=-=-= Content-Type: text/plain On Thu, 17 Mar 2011 18:40:51 +0100 Lars Magne Ingebrigtsen wrote: LMI> I think the Gnus variable snarfer and stuff should just be removed, and LMI> gnus-bug should just be a shim over report-emacs-bugs. The variables LMI> that are picked out can be somewhat sensitive, and not all that useful. LMI> The standard report-emacs-bugs data is more useful, I think. OK. Patch attached, although I didn't remove all the cruft related to `gnus-bug' from gnus-msg.el or elsewhere. The patch is against the Emacs trunk because it modifies `report-emacs-bug' a little bit. On Thu, 17 Mar 2011 13:50:06 -0400 Glenn Morris wrote: GM> You can also specify a "Version: " pseudo-header, which can be useful. GM> Though probably not very useful with a non-numeric version like "No Gnus GM> v0.14". I'm not sure either. Lars? Ted --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=gnus-debbugs.patch === modified file 'lisp/gnus/gnus-msg.el' --- lisp/gnus/gnus-msg.el 2011-02-23 13:35:35 +0000 +++ lisp/gnus/gnus-msg.el 2011-03-17 19:09:20 +0000 @@ -1429,42 +1429,15 @@ (gnus-inews-yank-articles (list (cdr gnus-article-current))))))) (defvar nntp-server-type) -(defun gnus-bug () +(defun gnus-bug (topic &optional recent-keys) "Send a bug report to the Gnus maintainers." - (interactive) + (interactive (reverse (list (recent-keys) (read-string "Bug Subject: ")))) (unless (gnus-alive-p) (error "Gnus has been shut down")) - (gnus-setup-message (if (message-mail-user-agent) 'message 'bug) - (unless (message-mail-user-agent) - (delete-other-windows) - (when gnus-bug-create-help-buffer - (switch-to-buffer "*Gnus Help Bug*") - (erase-buffer) - (insert gnus-bug-message) - (goto-char (point-min))) - (message-pop-to-buffer "*Gnus Bug*")) - (let ((message-this-is-mail t)) - (message-setup `((To . ,gnus-maintainer) (Subject . "")))) - (when gnus-bug-create-help-buffer - (push `(gnus-bug-kill-buffer) message-send-actions)) - (goto-char (point-min)) - (re-search-forward (concat "^" (regexp-quote mail-header-separator) "$")) - (forward-line 1) - (insert (gnus-version) "\n" - (emacs-version) "\n") - (when (and (boundp 'nntp-server-type) - (stringp nntp-server-type)) - (insert nntp-server-type)) - (insert "\n\n\n\n\n") - (let (text) - (with-current-buffer (gnus-get-buffer-create " *gnus environment info*") - (erase-buffer) - (gnus-debug) - (setq text (buffer-string))) - (insert "<#part type=application/emacs-lisp disposition=inline description=\"User settings\">\n" text "\n<#/part>")) - (goto-char (point-min)) - (search-forward "Subject: " nil t) - (message ""))) + (let ((report-emacs-bug-address gnus-maintainer) + (report-emacs-bug-body-prepend + (format "Package: %s\n" gnus-bug-package))) + (report-emacs-bug topic recent-keys))) (defun gnus-bug-kill-buffer () (when (get-buffer "*Gnus Help Bug*") === modified file 'lisp/gnus/gnus.el' --- lisp/gnus/gnus.el 2011-03-06 02:43:19 +0000 +++ lisp/gnus/gnus.el 2011-03-17 19:08:27 +0000 @@ -2633,9 +2633,13 @@ (defvar gnus-have-read-active-file nil) (defconst gnus-maintainer - "bugs@gnus.org (The Gnus Bugfixing Girls + Boys)" + "submit@debbugs.gnu.org (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") +(defconst gnus-bug-package + "gnus" + "The package to use in the bug submission.") + (defvar gnus-info-nodes '((gnus-group-mode "(gnus)Group Buffer") (gnus-summary-mode "(gnus)Summary Buffer") === modified file 'lisp/mail/emacsbug.el' --- lisp/mail/emacsbug.el 2011-02-06 15:04:31 +0000 +++ lisp/mail/emacsbug.el 2011-03-17 18:37:08 +0000 @@ -171,6 +171,8 @@ (set (make-local-variable 'message-strip-special-text-properties) nil)) (rfc822-goto-eoh) (forward-line 1) + (when (boundp 'report-emacs-bug-body-prepend) + (insert (symbol-value 'report-emacs-bug-body-prepend))) (let ((signature (buffer-substring (point) (point-max)))) (delete-region (point) (point-max)) (insert signature) --=-=-=--