diff options
| author | Gnus developers <ding@gnus.org> | 2011-07-03 22:17:49 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-07-03 22:17:49 +0000 |
| commit | cd865a33698f9414392a009c51abd6d18a1506bf (patch) | |
| tree | 91518c30bcf53e85de5c181853b42164fe12d8ab /lisp/gnus/gnus-group.el | |
| parent | 1485f4c03a3e887f8e60fefb96e5e3d9ca484cf7 (diff) | |
| download | emacs-cd865a33698f9414392a009c51abd6d18a1506bf.tar.gz | |
Merge changes made in Gnus trunk.
gnus.texi (Subscription Methods): Link to "Group Levels" to explain zombies. (Checking New Groups): Ditto (bug#8974).
gnus.texi (Startup Files): Clarify that we're talking about numbered backups, and not actual vc (bug#8975).
gnus-group.el (gnus-read-ephemeral-bug-group): Bind the coding systems to binary before writing and reading the mbox files.
gnus.el (gnus-summary-line-format): Link to the info node for %U instead of trying to list them all (bug#8978).
pop3.el (pop3-open-server): Use :end-of-capability.
gnus-group.el (gnus-read-ephemeral-emacs-bug-group): Make sure that the id is always a number.
gnus-group.el (gnus-read-ephemeral-emacs-bug-group): Hook into debbugs mode, if possible.
Diffstat (limited to 'lisp/gnus/gnus-group.el')
| -rw-r--r-- | lisp/gnus/gnus-group.el | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 74b1c7042ee..83383186ca9 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -2437,7 +2437,9 @@ the bug number, and browsing the URL must return mbox output." (cdr (assoc 'emacs gnus-bug-group-download-format-alist)))) (when (stringp number) (setq number (string-to-number number))) - (let ((tmpfile (mm-make-temp-file "gnus-temp-group-"))) + (let ((tmpfile (mm-make-temp-file "gnus-temp-group-")) + (coding-system-for-write 'binary) + (coding-system-for-read 'binary)) (with-temp-file tmpfile (url-insert-file-contents (format mbox-url number)) (goto-char (point-min)) @@ -2466,12 +2468,17 @@ the bug number, and browsing the URL must return mbox output." (defun gnus-read-ephemeral-emacs-bug-group (number &optional window-conf) "Browse Emacs bug NUMBER as ephemeral group." - (interactive (list (read-string "Enter bug number: " - (thing-at-point 'word) nil))) + (interactive (list (string-to-number + (read-string "Enter bug number: " + (thing-at-point 'word) nil)))) (gnus-read-ephemeral-bug-group number (cdr (assoc 'emacs gnus-bug-group-download-format-alist)) - window-conf)) + window-conf) + (when (boundp 'debbugs-summary-mode) + (with-current-buffer (window-buffer (selected-window)) + (debbugs-summary-mode 1) + (set (make-local-variable 'debbugs-bug-number) number)))) (defun gnus-group-jump-to-group (group &optional prompt) "Jump to newsgroup GROUP. |