mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

Merge from gnus--rel--5.10

Browse Source 
Patches applied:

 * gnus--rel--5.10  (patch 153-155)

   - Merge from emacs--devo--0
   - Update from CVS

2006-10-20  Katsumi Yamaoka  <yamaoka@jpl.org>

   * lisp/gnus/gnus-group.el (gnus-group-make-doc-group): Work for non-ASCII group
   names.

   * lisp/gnus/gnus-sum.el (gnus-select-newsgroup): Decode group name.

2006-10-19  Katsumi Yamaoka  <yamaoka@jpl.org>

   * lisp/gnus/message.el (message-headers-to-generate): Fix typo in docstring.

2006-10-19  Reiner Steib  <Reiner.Steib@gmx.de>

   * lisp/gnus/gnus.el (gnus-mime): Remove unused custom group.

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-482
This commit is contained in:
Miles Bader 2006-10-24 10:42:21 +00:00
parent 7eb605c752
commit c86d4601c9
5 changed files with 31 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/gnus/ChangeLog
View File

@ -1,3 +1,18 @@
2006-10-20 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-group.el (gnus-group-make-doc-group): Work for non-ASCII group
names.
* gnus-sum.el (gnus-select-newsgroup): Decode group name.
2006-10-19 Katsumi Yamaoka <yamaoka@jpl.org>
* message.el (message-headers-to-generate): Fix typo in docstring.
2006-10-19 Reiner Steib <Reiner.Steib@gmx.de>
* gnus.el (gnus-mime): Remove unused custom group.
2006-10-13 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de>
* mm-uu.el (mm-uu-pgp-signed-extract-1): Use RFC 2440 definition of

17
lisp/gnus/gnus-group.el
View File

@ -2680,13 +2680,18 @@ If called with a prefix argument, ask for the file type."
(t (setq err (format "%c unknown. " char))
nil))))
(setq type found)))
(let* ((file (expand-file-name file))
(name (gnus-generate-new-group-name
(gnus-group-prefixed-name
(file-name-nondirectory file) '(nndoc "")))))
(setq file (expand-file-name file))
(let ((name (gnus-generate-new-group-name
(gnus-group-prefixed-name
(file-name-nondirectory file) '(nndoc ""))))
(encodable (mm-coding-system-p 'utf-8)))
(gnus-group-make-group
(gnus-group-real-name name)
(list 'nndoc file
(if encodable
(mm-encode-coding-string (gnus-group-real-name name) 'utf-8)
(gnus-group-real-name name))
(list 'nndoc (if encodable
(mm-encode-coding-string file 'utf-8)
file)
(list 'nndoc-address file)
(list 'nndoc-article-type (or type 'guess))))))

4
lisp/gnus/gnus-sum.el
View File

@ -5208,13 +5208,13 @@ If SELECT-ARTICLES, only select those articles from GROUP."
(when (equal major-mode 'gnus-summary-mode)
(gnus-kill-buffer (current-buffer)))
(error "Couldn't activate group %s: %s"
group (gnus-status-message group))))
(gnus-group-decoded-name group) (gnus-status-message group))))
(unless (gnus-request-group group t)
(when (equal major-mode 'gnus-summary-mode)
(gnus-kill-buffer (current-buffer)))
(error "Couldn't request group %s: %s"
group (gnus-status-message group)))
(gnus-group-decoded-name group) (gnus-status-message group)))
(when gnus-agent
(gnus-agent-possibly-alter-active group (gnus-active group) info)

6
lisp/gnus/gnus.el
View File

@ -279,10 +279,6 @@ is restarted, and sometimes reloaded."
:link '(custom-manual "(gnus)Various Various")
:group 'gnus)
(defgroup gnus-mime nil
"Variables for controlling the Gnus MIME interface."
:group 'gnus)
(defgroup gnus-exit nil
"Exiting Gnus."
:link '(custom-manual "(gnus)Exiting Gnus")
@ -1243,6 +1239,7 @@ used to 899, you would say something along these lines:
:group 'gnus-server
:type 'file)
;;;###autoload
(defun gnus-getenv-nntpserver ()
"Find default nntp server.
Check the NNTPSERVER environment variable and the
@ -1254,6 +1251,7 @@ Check the NNTPSERVER environment variable and the
(when (re-search-forward "[^ \t\n\r]+" nil t)
(match-string 0))))))
;;;###autoload
(defcustom gnus-select-method
(condition-case nil
(nconc

2
lisp/gnus/message.el
View File

@ -5514,7 +5514,7 @@ between beginning of field and beginning of line."
(defun message-headers-to-generate (headers included-headers excluded-headers)
"Return a list that includes all headers from HEADERS.
If INCLUDED-HEADERS is a list, just include those headers. If if is
If INCLUDED-HEADERS is a list, just include those headers. If it is
t, include all headers. In any case, headers from EXCLUDED-HEADERS
are not included."
(let ((result nil)