Commit 8ccbef23 authored by Gnus developers's avatar Gnus developers Committed by Katsumi Yamaoka

Merge changes made in Gnus trunk.

nnimap.el: Implement partial IMAP article fetch.
nnimap.el: Have nnimap not update the infos if it can't get info from the server.
Implement functions for showing the complete articles.
gnus-int.el (gnus-open-server): Don't query whether to go offline -- just do it.
gnus-art.el (gnus-mime-delete-part): Fix plural for "byte" when there isn't a single byte.
nndoc.el (nndoc-type-alist): Move mime-parts after mbox.  Suggested by Jay Berkenbilt.
mm-decode.el (mm-save-part): Allow saving to other directories the normal Emacs way.
gnus-html.el (gnus-html-rescale-image): Use our defalias gnus-window-inside-pixel-edges.
gnus-srvr.el (gnus-server-copy-server): Add documentation.
gnus.texi (Using IMAP): Document the new nnimap.
nnimap.el (nnimap-wait-for-response): Search further when we're not using streaming.
gnus-int.el (gnus-check-server): Say what the error was when opening failed.
nnheader.el (nnheader-get-report-string): New function.
gnus-int.el (gnus-check-server): Use report-string.
nnimap.el (nnimap-open-connection): Add more error reporting when nnimap fails early.
gnus-start.el (gnus-get-unread-articles): Don't try to open failed servers twice.
nnimap.el (nnimap-wait-for-response): Reversed logic in the nnimap-streaming test.
gnus-art.el: Removed CTAN button stuff, which I don't think is very relevant any more.
Remove NoCeM support, since nobody seems to use it any more.
Remove earcon and gnus-audio.
gnus.el (gnus): Silence gnus-load message.
gnus-group.el (gnus-read-ephemeral-bug-group): Add the bug email address to the To list for easier response.
gnus.texi (Connecting to an IMAP Server): Show how to use as primary method instead of secondary.
parent 83e245c4
......@@ -246,6 +246,16 @@ of the "Whomever writes:" line. You need to set
@code{message-insert-formatted-citation-line} as well.
@end itemize
@item Changes in Browse Server mode
@itemize @bullet
@item Gnus' sophisticated subscription methods are now available in
Browse Server buffers as well using the variable
@code{gnus-browse-subscribe-newsgroup-method}.
@end itemize
@item Changes in back ends
@itemize @bullet
......@@ -336,6 +346,8 @@ be unchanged except that the marks will be removed when copying or
moving articles to a group that has not turned auto-expire on.
@xref{Expiring Mail}.
@item NoCeM support has been removed.
@end itemize
@end itemize
......
This diff is collapsed.
;;; earcon.el --- Sound effects for messages
;; Copyright (C) 1996, 2000, 2001, 2002, 2003, 2004,
;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
;; Author: Steven L. Baur <steve@miranova.com>
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; This file provides access to sound effects in Gnus.
;;; Code:
(eval-when-compile (require 'cl))
(require 'gnus)
(require 'gnus-audio)
(require 'gnus-art)
(defgroup earcon nil
"Turn ** sounds ** into noise."
:group 'gnus-visual)
(defcustom earcon-prefix "**"
"*String denoting the start of an earcon."
:type 'string
:group 'earcon)
(defcustom earcon-suffix "**"
"String denoting the end of an earcon."
:type 'string
:group 'earcon)
(defcustom earcon-regexp-alist
'(("boring" 1 "Boring.au")
("evil[ \t]+laugh" 1 "Evil_Laugh.au")
("gag\\|puke" 1 "Puke.au")
("snicker" 1 "Snicker.au")
("meow" 1 "catmeow.wav")
("sob\\|boohoo" 1 "cry.wav")
("drum[ \t]*roll" 1 "drumroll.au")
("blast" 1 "explosion.au")
("flush\\|plonk!*" 1 "flush.au")
("kiss" 1 "kiss.wav")
("tee[ \t]*hee" 1 "laugh.au")
("shoot" 1 "shotgun.wav")
("yawn" 1 "snore.wav")
("cackle" 1 "witch.au")
("yell\\|roar" 1 "yell2.au")
("whoop-de-doo" 1 "whistle.au"))
"*A list of regexps to map earcons to real sounds."
:type '(repeat (list regexp
(integer :tag "Match")
(string :tag "Sound")))
:group 'earcon)
(defvar earcon-button-marker-list nil)
(make-variable-buffer-local 'earcon-button-marker-list)
;;; FIXME!! clone of code from gnus-vis.el FIXME!!
(defun earcon-article-push-button (event)
"Check text under the mouse pointer for a callback function.
If the text under the mouse pointer has a `earcon-callback' property,
call it with the value of the `earcon-data' text property."
(interactive "e")
(set-buffer (window-buffer (posn-window (event-start event))))
(let* ((pos (posn-point (event-start event)))
(data (get-text-property pos 'earcon-data))
(fun (get-text-property pos 'earcon-callback)))
(if fun (funcall fun data))))
(defun earcon-article-press-button ()
"Check text at point for a callback function.
If the text at point has a `earcon-callback' property,
call it with the value of the `earcon-data' text property."
(interactive)
(let* ((data (get-text-property (point) 'earcon-data))
(fun (get-text-property (point) 'earcon-callback)))
(if fun (funcall fun data))))
(defun earcon-article-prev-button (n)
"Move point to N buttons backward.
If N is negative, move forward instead."
(interactive "p")
(earcon-article-next-button (- n)))
(defun earcon-article-next-button (n)
"Move point to N buttons forward.
If N is negative, move backward instead."
(interactive "p")
(let ((function (if (< n 0) 'previous-single-property-change
'next-single-property-change))
(inhibit-point-motion-hooks t)
(backward (< n 0))
(limit (if (< n 0) (point-min) (point-max))))
(setq n (abs n))
(while (and (not (= limit (point)))
(> n 0))
;; Skip past the current button.
(when (get-text-property (point) 'earcon-callback)
(goto-char (funcall function (point) 'earcon-callback nil limit)))
;; Go to the next (or previous) button.
(gnus-goto-char (funcall function (point) 'earcon-callback nil limit))
;; Put point at the start of the button.
(when (and backward (not (get-text-property (point) 'earcon-callback)))
(goto-char (funcall function (point) 'earcon-callback nil limit)))
;; Skip past intangible buttons.
(when (get-text-property (point) 'intangible)
(incf n))
(decf n))
(unless (zerop n)
(gnus-message 5 "No more buttons"))
n))
(defun earcon-article-add-button (from to fun &optional data)
"Create a button between FROM and TO with callback FUN and data DATA."
(and (boundp gnus-article-button-face)
gnus-article-button-face
(gnus-overlay-put (gnus-make-overlay from to)
'face gnus-article-button-face))
(gnus-add-text-properties
from to
(nconc (and gnus-article-mouse-face
(list gnus-mouse-face-prop gnus-article-mouse-face))
(list 'gnus-callback fun)
(and data (list 'gnus-data data)))))
(defun earcon-button-entry ()
;; Return the first entry in `gnus-button-alist' matching this place.
(let ((alist earcon-regexp-alist)
(case-fold-search t)
(entry nil))
(while alist
(setq entry (pop alist))
(if (looking-at (car entry))
(setq alist nil)
(setq entry nil)))
entry))
(defun earcon-button-push (marker)
;; Push button starting at MARKER.
(with-current-buffer gnus-article-buffer
(goto-char marker)
(let* ((entry (earcon-button-entry))
(inhibit-point-motion-hooks t)
(fun 'gnus-audio-play)
(args (list (nth 2 entry))))
(cond
((fboundp fun)
(apply fun args))
((and (boundp fun)
(fboundp (symbol-value fun)))
(apply (symbol-value fun) args))
(t
(gnus-message 1 "You must define `%S' to use this button"
(cons fun args)))))))
;;; FIXME!! clone of code from gnus-vis.el FIXME!!
;;;###interactive
(defun earcon-region (beg end)
"Play Sounds in the region between point and mark."
(interactive "r")
(earcon-buffer (current-buffer) beg end))
;;;###interactive
(defun earcon-buffer (&optional buffer st nd)
(interactive)
(save-excursion
;; clear old markers.
(if (boundp 'earcon-button-marker-list)
(while earcon-button-marker-list
(set-marker (pop earcon-button-marker-list) nil))
(setq earcon-button-marker-list nil))
(and buffer (set-buffer buffer))
(let ((buffer-read-only nil)
(inhibit-point-motion-hooks t)
(case-fold-search t)
(alist earcon-regexp-alist)
beg entry regexp)
(goto-char (point-min))
(setq beg (point))
(while (setq entry (pop alist))
(setq regexp (concat (regexp-quote earcon-prefix)
".*\\("
(car entry)
"\\).*"
(regexp-quote earcon-suffix)))
(goto-char beg)
(while (re-search-forward regexp nil t)
(let* ((start (and entry (match-beginning 1)))
(end (and entry (match-end 1)))
(from (match-beginning 1)))
(earcon-article-add-button
start end 'earcon-button-push
(car (push (set-marker (make-marker) from)
earcon-button-marker-list)))
(gnus-audio-play (caddr entry))))))))
;;;###autoload
(defun gnus-earcon-display ()
"Play sounds in message buffers."
(interactive)
(with-current-buffer gnus-article-buffer
(goto-char (point-min))
;; Skip headers
(unless (search-forward "\n\n" nil t)
(goto-char (point-max)))
(sit-for 0)
(earcon-buffer (current-buffer) (point))))
;;;***
(provide 'earcon)
(run-hooks 'earcon-load-hook)
;;; earcon.el ends here
......@@ -257,6 +257,22 @@ This can also be a list of the above values."
(regexp :value ".*"))
:group 'gnus-article-signature)
(defcustom gnus-fetch-partial-articles nil
"If non-nil, Gnus will fetch partial articles.
If t, nnimap will fetch only the first part. If a string, it
will fetch all parts that have types that match that string. A
likely value would be \"text/\" to automatically fetch all
textual parts.
Currently only the nnimap backend actually supports partial
article fetching. If the backend doesn't support it, it has no
effect."
:version "24.1"
:type '(choice (const nil)
(const t)
(regexp))
:group 'gnus-article)
(defcustom gnus-hidden-properties '(invisible t intangible t)
"Property list to use for hiding text."
:type 'sexp
......@@ -1598,15 +1614,6 @@ predicate. See Info node `(gnus)Customizing Articles'."
:link '(custom-manual "(gnus)Customizing Articles")
:type gnus-article-treat-custom)
(defcustom gnus-treat-play-sounds nil
"Play sounds.
Valid values are nil, t, `head', `first', `last', an integer or a
predicate. See Info node `(gnus)Customizing Articles'."
:version "21.1"
:group 'gnus-article-treat
:link '(custom-manual "(gnus)Customizing Articles")
:type gnus-article-treat-custom)
(defcustom gnus-treat-x-pgp-sig nil
"Verify X-PGP-Sig.
To automatically treat X-PGP-Sig, set it to head.
......@@ -1711,8 +1718,7 @@ This requires GNU Libidn, and by default only enabled if it is found."
(gnus-treat-hide-citation gnus-article-hide-citation)
(gnus-treat-hide-citation-maybe gnus-article-hide-citation-maybe)
(gnus-treat-highlight-citation gnus-article-highlight-citation)
(gnus-treat-body-boundary gnus-article-treat-body-boundary)
(gnus-treat-play-sounds gnus-earcon-display)))
(gnus-treat-body-boundary gnus-article-treat-body-boundary)))
(defvar gnus-article-mime-handle-alist nil)
(defvar article-lapsed-timer nil)
......@@ -5075,7 +5081,10 @@ Deleting parts may malfunction or destroy the article; continue? "))
"|\n"
"| Type: " type "\n"
"| Filename: " filename "\n"
"| Size (encoded): " bsize " Byte\n"
"| Size (encoded): " bsize (format " byte%s\n"
(if (= bsize 1)
""
"s"))
(when description
(concat "| Description: " description "\n"))
"`----\n"))
......@@ -7030,9 +7039,7 @@ groups."
(gnus-backlog-remove-article
(car gnus-article-current) (cdr gnus-article-current)))
;; Flush original article as well.
(when (get-buffer gnus-original-article-buffer)
(with-current-buffer gnus-original-article-buffer
(setq gnus-original-article nil)))
(gnus-flush-original-article-buffer)
(when gnus-use-cache
(gnus-cache-update-article
(car gnus-article-current) (cdr gnus-article-current)))
......@@ -7046,6 +7053,11 @@ groups."
(set-window-point (get-buffer-window buf) (point)))
(gnus-summary-show-article))
(defun gnus-flush-original-article-buffer ()
(when (get-buffer gnus-original-article-buffer)
(with-current-buffer gnus-original-article-buffer
(setq gnus-original-article nil))))
(defun gnus-article-edit-exit ()
"Exit the article editing without updating."
(interactive)
......@@ -7134,46 +7146,6 @@ man page."
(function :tag "Other"))
:group 'gnus-article-buttons)
(defcustom gnus-ctan-url "http://tug.ctan.org/tex-archive/"
"Top directory of a CTAN \(Comprehensive TeX Archive Network\) archive.
If the default site is too slow, try to find a CTAN mirror, see
<URL:http://tug.ctan.org/tex-archive/CTAN.sites?action=/index.html>. See also
the variable `gnus-button-handle-ctan'."
:version "22.1"
:group 'gnus-article-buttons
:link '(custom-manual "(gnus)Group Parameters")
:type '(choice (const "http://www.tex.ac.uk/tex-archive/")
(const "http://tug.ctan.org/tex-archive/")
(const "http://www.dante.de/CTAN/")
(string :tag "Other")))
(defcustom gnus-button-ctan-handler 'browse-url
"Function to use for displaying CTAN links.
The function must take one argument, the string naming the URL."
:version "22.1"
:type '(choice (function-item :tag "Browse Url" browse-url)
(function :tag "Other"))
:group 'gnus-article-buttons)
(defcustom gnus-button-handle-ctan-bogus-regexp "^/?tex-archive/\\|^/"
"Bogus strings removed from CTAN URLs."
:version "22.1"
:group 'gnus-article-buttons
:type '(choice (const "^/?tex-archive/\\|/")
(regexp :tag "Other")))
(defcustom gnus-button-ctan-directory-regexp
(regexp-opt
(list "archive-tools" "biblio" "bibliography" "digests" "documentation"
"dviware" "fonts" "graphics" "help" "indexing" "info" "language"
"languages" "macros" "nonfree" "obsolete" "support" "systems"
"tds" "tools" "usergrps" "web") t)
"Regular expression for ctan directories.
It should match all directories in the top level of `gnus-ctan-url'."
:version "22.1"
:group 'gnus-article-buttons
:type 'regexp)
(defcustom gnus-button-mid-or-mail-regexp
(concat "\\b\\(<?" gnus-button-valid-localpart-regexp "@"
gnus-button-valid-fqdn-regexp
......@@ -7431,26 +7403,6 @@ Calls `describe-variable' or `describe-function'."
(gnus-message 1 "Cannot locale library `%s'." url)
(find-file-read-only file))))
(defun gnus-button-handle-ctan (url)
"Call `browse-url' when pushing a CTAN URL button."
(funcall
gnus-button-ctan-handler
(concat
gnus-ctan-url
(gnus-replace-in-string url gnus-button-handle-ctan-bogus-regexp ""))))
(defcustom gnus-button-tex-level 5
"*Integer that says how many TeX-related buttons Gnus will show.
The higher the number, the more buttons will appear and the more false
positives are possible. Note that you can set this variable local to
specific groups. Setting it higher in TeX groups is probably a good idea.
See Info node `(gnus)Group Parameters' and the variable `gnus-parameters' on
how to set variables in specific groups."
:version "22.1"
:group 'gnus-article-buttons
:link '(custom-manual "(gnus)Group Parameters")
:type 'integer)
(defcustom gnus-button-man-level 5
"*Integer that says how many man-related buttons Gnus will show.
The higher the number, the more buttons will appear and the more false
......@@ -7517,20 +7469,6 @@ positives are possible."
0 (>= gnus-button-message-level 0) gnus-url-mailto 1)
("\\bmailto:\\([^ \n\t]+\\)"
0 (>= gnus-button-message-level 0) gnus-url-mailto 1)
;; CTAN
((concat "\\bCTAN:[ \t\n]?[^>)!;:,'\n\t ]*\\("
gnus-button-ctan-directory-regexp
"[^][>)!;:,'\n\t ]+\\)")
0 (>= gnus-button-tex-level 1) gnus-button-handle-ctan 1)
((concat "\\btex-archive/\\("
gnus-button-ctan-directory-regexp
"/[-_.a-z0-9/]+[-_./a-z0-9]+[/a-z0-9]\\)")
1 (>= gnus-button-tex-level 6) gnus-button-handle-ctan 1)
((concat
"\\b\\("
gnus-button-ctan-directory-regexp
"/[-_.a-z0-9]+/[-_./a-z0-9]+[/a-z0-9]\\)")
1 (>= gnus-button-tex-level 8) gnus-button-handle-ctan 1)
;; Info Konqueror style <info:/foo/bar baz>.
;; Must come before " Gnus home-grown style".
("\\binfo://?\\([^'\">\n\t]+\\)"
......@@ -8512,9 +8450,7 @@ For example:
(when gnus-keep-backlog
(gnus-backlog-remove-article
(car gnus-article-current) (cdr gnus-article-current)))
(when (get-buffer gnus-original-article-buffer)
(with-current-buffer gnus-original-article-buffer
(setq gnus-original-article nil)))
(gnus-flush-original-article-buffer)
(when gnus-use-cache
(gnus-cache-update-article
(car gnus-article-current) (cdr gnus-article-current))))))))
......
;;; gnus-audio.el --- Sound effects for Gnus
;; Copyright (C) 1996, 2000, 2001, 2002, 2003, 2004,
;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
;; Author: Steven L. Baur <steve@miranova.com>
;; Keywords: news, mail, multimedia
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; This file provides access to sound effects in Gnus.
;; This file is partially stripped to support earcons.el.
;;; Code:
(require 'nnheader)
(defgroup gnus-audio nil
"Playing sound in Gnus."
:version "21.1"
:group 'gnus-visual
:group 'multimedia)
(defvar gnus-audio-inline-sound
(or (if (fboundp 'device-sound-enabled-p)
(device-sound-enabled-p)) ; XEmacs
(fboundp 'play-sound)) ; Emacs
"Non-nil means try to play sounds without using an external program.")
(defcustom gnus-audio-directory (nnheader-find-etc-directory "sounds")
"The directory containing the Sound Files."
:type '(choice directory (const nil))
:group 'gnus-audio)
(defcustom gnus-audio-au-player (executable-find "play")
"Executable program for playing sun AU format sound files."
:group 'gnus-audio
:type '(choice file (const nil)))
(defcustom gnus-audio-wav-player (executable-find "play")
"Executable program for playing WAV files."
:group 'gnus-audio
:type '(choice file (const nil)))
;;; The following isn't implemented yet. Wait for Millennium Gnus.
;;(defvar gnus-audio-effects-enabled t
;; "When t, Gnus will use sound effects.")
;;(defvar gnus-audio-enable-hooks nil
;; "Functions run when enabling sound effects.")
;;(defvar gnus-audio-disable-hooks nil
;; "Functions run when disabling sound effects.")
;;(defvar gnus-audio-theme-song nil
;; "Theme song for Gnus.")
;;(defvar gnus-audio-enter-group nil
;; "Sound effect played when selecting a group.")
;;(defvar gnus-audio-exit-group nil
;; "Sound effect played when exiting a group.")
;;(defvar gnus-audio-score-group nil
;; "Sound effect played when scoring a group.")
;;(defvar gnus-audio-busy-sound nil
;; "Sound effect played when going into a ... sequence.")
;;;###autoload
;;(defun gnus-audio-enable-sound ()
;; "Enable Sound Effects for Gnus."
;; (interactive)
;; (setq gnus-audio-effects-enabled t)
;; (gnus-run-hooks gnus-audio-enable-hooks))
;;;###autoload
;(defun gnus-audio-disable-sound ()
;; "Disable Sound Effects for Gnus."
;; (interactive)
;; (setq gnus-audio-effects-enabled nil)
;; (gnus-run-hooks gnus-audio-disable-hooks))
;;;###autoload
(defun gnus-audio-play (file)
"Play a sound FILE through the speaker."
(interactive "fSound file name: ")
(let ((sound-file (if (file-exists-p file)
file
(expand-file-name file gnus-audio-directory))))
(when (file-exists-p sound-file)
(cond ((and gnus-audio-inline-sound
(condition-case nil
;; Even if we have audio, we may fail with the
;; wrong sort of sound file.
(progn (play-sound-file sound-file)
t)
(error nil))))
;; If we don't have built-in sound, or playing it failed,
;; try with external program.
((equal "wav" (file-name-extension sound-file))
(call-process gnus-audio-wav-player
sound-file
0
nil
sound-file))
((equal "au" (file-name-extension sound-file))
(call-process gnus-audio-au-player
sound-file
0
nil
sound-file))))))
;;; The following isn't implemented yet, wait for Red Gnus
;;(defun gnus-audio-startrek-sounds ()
;; "Enable sounds from Star Trek the original series."
;; (interactive)
;; (setq gnus-audio-busy-sound "working.au")
;; (setq gnus-audio-enter-group "bulkhead_door.au")
;; (setq gnus-audio-exit-group "bulkhead_door.au")
;; (setq gnus-audio-score-group "ST_laser.au")
;; (setq gnus-audio-theme-song "startrek.au")
;; (add-hook 'gnus-select-group-hook 'gnus-audio-startrek-select-group)
;; (add-hook 'gnus-exit-group-hook 'gnus-audio-startrek-exit-group))
;;;***
(defvar gnus-startup-jingle "Tuxedomoon.Jingle4.au"
"Name of the Gnus startup jingle file.")
(defun gnus-play-jingle ()
"Play the Gnus startup jingle, unless that's inhibited."
(interactive)
(gnus-audio-play gnus-startup-jingle))
(provide 'gnus-audio)
(run-hooks 'gnus-audio-load-hook)
;;; gnus-audio.el ends here
......@@ -865,11 +865,6 @@ This can be changed using the `\\[gnus-score-change-score-file]' command."
Check the [ ] for the entries you want to apply to this score file, then
edit the value to suit your taste. Don't forget to mark the checkbox,
if you do all your changes will be lost. ")
(widget-create 'push-button
:action (lambda (&rest ignore)
(require 'gnus-audio)
(gnus-audio-play "Evil_Laugh.au"))
"Bhahahah!")
(widget-insert "\n\n")
(make-local-variable 'gnus-custom-scores)
(setq gnus-custom-scores
......
......@@ -240,15 +240,6 @@ time Emacs has been idle for IDLE `gnus-demon-timestep's."
;; this idle-cycle.
(push (car handler) gnus-demon-idle-has-been-called)))))))))
(defun gnus-demon-add-nocem ()
"Add daemonic NoCeM handling to Gnus."
(gnus-demon-add-handler 'gnus-demon-scan-nocem 60 30))
(defun gnus-demon-scan-nocem ()
"Scan NoCeM groups for NoCeM messages."
(save-window-excursion
(gnus-nocem-scan-groups)))
(defun gnus-demon-add-disconnection ()
"Add daemonic server disconnection to Gnus."
(gnus-demon-add-handler 'gnus-demon-close-connections nil 30))
......
......@@ -2418,6 +2418,14 @@ the bug number, and browsing the URL must return mbox output."
(let ((tmpfile (mm-make-temp-file "gnus-temp-group-")))
(with-temp-file tmpfile
(url-insert-file-contents (format mbox-url number))
(goto-char (point-min))
;; Add the debbugs address so that we can respond to reports easily.
(while (re-search-forward "^To: " nil t)
(end-of-line)
(insert (format ", %s@%s" number
(replace-regexp-in-string
"/.*$" ""
(replace-regexp-in-string "^http://" "" mbox-url)))))
(write-region (point-min) (point-max) tmpfile)
(gnus-group-read-ephemeral-group
"gnus-read-ephemeral-bug"
......@@ -3946,14 +3954,6 @@ re-scanning. If ARG is non-nil and not a number, this will force
(unless gnus-slave
(gnus-master-read-slave-newsrc))
;; We might read in new NoCeM messages here.
(when (and gnus-use-nocem
(or (and (numberp gnus-use-nocem)
(numberp arg)
(>= arg gnus-use-nocem))
(not arg)))
(gnus-nocem-scan-groups))
(gnus-get-unread-articles arg)
;; If the user wants it, we scan for new groups.
......