Merge from gnus--devo--0

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-924

diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog
index c9e77908619d69225e876cd9d97ca4dc2ca913ae..63f9a6e596feda63252f03eaecdd760cf1cc9071 100644 (file)
--- a/doc/misc/ChangeLog
+++ b/doc/misc/ChangeLog
@@ -1,3 +1,9 @@
+2007-11-09  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * gnus-news.texi: Fix spelling.
+       `message-insert-formatted-citation-line', not
+       `message-insert-formated-citation-line'.
+
 2007-11-07  Michael Albinus  <michael.albinus@gmx.de>
 
        * tramp.texi (Overview): Mention also the PuTTY integration under

diff --git a/doc/misc/gnus-news.texi b/doc/misc/gnus-news.texi
index 821354717e2cb38cb46df90520a8cc9b19eb5c31..0c08a93883bcae6716101767a3566324e3e2f6b8 100644 (file)
--- a/doc/misc/gnus-news.texi
+++ b/doc/misc/gnus-news.texi
@@ -175,7 +175,7 @@ named @code{message-signature-directory}.
 @item The option @code{message-citation-line-format} controls the format
 of the "Whomever writes:" line.  You need to set
 @code{message-citation-line-function} to
-@code{message-insert-formated-citation-line} as well.
+@code{message-insert-formatted-citation-line} as well.
 @end itemize
 
 @item Changes in back ends

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index bc07acae2870021321175fe7a3e2792fb3840991..7ac757f24e2c686f99857fbdf4261e7d028dcd37 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,7 +1,23 @@
+2007-11-05  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * message.el (message-citation-line-function)
+       (message-insert-formatted-citation-line): Fix spelling of
+       `message-insert-formated-citation-line'.
+
 2007-11-03  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-sum.el (gnus-summary-highlight): Mark as risky local variable.
 
+2007-11-02  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * nnml.el (nnml-request-rename-group): Bind file-name-coding-system to
+       nnmail-pathname-coding-system.
+
+       * gnus-group.el (gnus-group-rename-group): Encode non-ASCII group name
+       that a user enters; decode group names in messages.
+
+       * gnus-msg.el (gnus-inews-do-gcc): Encode non-ASCII group names.
+
 2007-11-01  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * mm-util.el (mm-charset-eval-alist): Mark as risky local variable.

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 97eb37a81eeeca21df8cf510832dc48c92f94104..942a1cf4947ba933b1f14c51d43d40c28202478d 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -2613,14 +2613,19 @@ be removed from the server, even when it's empty."
 When used interactively, GROUP is the group under point
 and NEW-NAME will be prompted for."
   (interactive
-   (list
-    (gnus-group-group-name)
-    (progn
-      (unless (gnus-check-backend-function
-              'request-rename-group (gnus-group-group-name))
-       (error "This back end does not support renaming groups"))
-      (gnus-read-group "Rename group to: "
-                      (gnus-group-real-name (gnus-group-group-name))))))
+   (let ((group (gnus-group-group-name))
+        method new-name)
+     (unless (gnus-check-backend-function 'request-rename-group group)
+       (error "This back end does not support renaming groups"))
+     (setq new-name (gnus-read-group
+                    "Rename group to: "
+                    (gnus-group-real-name (gnus-group-decoded-name group)))
+          method (gnus-info-method (gnus-get-info group)))
+     (list group (mm-encode-coding-string
+                 new-name
+                 (gnus-group-name-charset
+                  method
+                  (gnus-group-prefixed-name new-name method))))))
 
   (unless (gnus-check-backend-function 'request-rename-group group)
     (error "This back end does not support renaming groups"))
@@ -2639,29 +2644,34 @@ and NEW-NAME will be prompted for."
           (gnus-group-real-name new-name)
           (gnus-info-method (gnus-get-info group)))))
 
-  (when (gnus-active new-name)
-    (error "The group %s already exists" new-name))
+  (let ((decoded-group (gnus-group-decoded-name group))
+       (decoded-new-name (gnus-group-decoded-name new-name)))
+    (when (gnus-active new-name)
+      (error "The group %s already exists" decoded-new-name))
 
-  (gnus-message 6 "Renaming group %s to %s..." group new-name)
-  (prog1
-      (if (progn
-           (gnus-group-goto-group group)
-           (not (when (< (gnus-group-group-level) gnus-level-zombie)
-                  (gnus-request-rename-group group new-name))))
-         (gnus-error 3 "Couldn't rename group %s to %s" group new-name)
-       ;; We rename the group internally by killing it...
-       (gnus-group-kill-group)
-       ;; ... changing its name ...
-       (setcar (cdar gnus-list-of-killed-groups) new-name)
-       ;; ... and then yanking it.  Magic!
-       (gnus-group-yank-group)
-       (gnus-set-active new-name (gnus-active group))
-       (gnus-message 6 "Renaming group %s to %s...done" group new-name)
-       new-name)
-    (setq gnus-killed-list (delete group gnus-killed-list))
-    (gnus-set-active group nil)
-    (gnus-dribble-touch)
-    (gnus-group-position-point)))
+    (gnus-message 6 "Renaming group %s to %s..."
+                 decoded-group decoded-new-name)
+    (prog1
+       (if (progn
+             (gnus-group-goto-group group)
+             (not (when (< (gnus-group-group-level) gnus-level-zombie)
+                    (gnus-request-rename-group group new-name))))
+           (gnus-error 3 "Couldn't rename group %s to %s"
+                       decoded-group decoded-new-name)
+         ;; We rename the group internally by killing it...
+         (gnus-group-kill-group)
+         ;; ... changing its name ...
+         (setcar (cdar gnus-list-of-killed-groups) new-name)
+         ;; ... and then yanking it.  Magic!
+         (gnus-group-yank-group)
+         (gnus-set-active new-name (gnus-active group))
+         (gnus-message 6 "Renaming group %s to %s...done"
+                       decoded-group decoded-new-name)
+         new-name)
+      (setq gnus-killed-list (delete group gnus-killed-list))
+      (gnus-set-active group nil)
+      (gnus-dribble-touch)
+      (gnus-group-position-point))))
 
 (defun gnus-group-edit-group (group &optional part)
   "Edit the group on the current line."

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 941222adfd56c5e3182b692fe056b302b68c31d0..891ed1bc2692b6dc8dde2b587fb48ddf094c4f86 100644 (file)
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -1633,8 +1633,11 @@ this is a reply."
                        (message-tokenize-header gcc " ,")))
          ;; Copy the article over to some group(s).
          (while (setq group (pop groups))
-           (unless (gnus-check-server
-                    (setq method (gnus-inews-group-method group)))
+           (setq method (gnus-inews-group-method group)
+                 group (mm-encode-coding-string
+                        group
+                        (gnus-group-name-charset method group)))
+           (unless (gnus-check-server method)
              (error "Can't open server %s" (if (stringp method) method
                                              (car method))))
            (unless (gnus-request-group group nil method)

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index dd9aacc98cf7a8c165fa2a7953fe4a0220426c0f..895c36a6beb7cb56fe223821f2f32396f33827c1 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -914,7 +914,7 @@ the signature is inserted."
   "*Function called to insert the \"Whomever writes:\" line.
 
 Predefined functions include `message-insert-citation-line' and
-`message-insert-formated-citation-line' (see the variable
+`message-insert-formatted-citation-line' (see the variable
 `message-citation-line-format').
 
 Note that Gnus provides a feature where the reader can click on
@@ -923,7 +923,7 @@ people who read your message will have to change their Gnus
 configuration.  See the variable `gnus-cite-attribution-suffix'."
   :type '(choice
          (function-item :tag "plain" message-insert-citation-line)
-         (function-item :tag "formatted" message-insert-formated-citation-line)
+         (function-item :tag "formatted" message-insert-formatted-citation-line)
          (function :tag "Other"))
   :link '(custom-manual "(message)Insertion Variables")
   :group 'message-insertion)
@@ -3688,14 +3688,14 @@ This function uses `mail-citation-hook' if that is non-nil."
   "Cite function in the standard Message manner."
   (message-cite-original-1 nil))
 
-(defun message-insert-formated-citation-line (&optional from date)
-  "Function that inserts a formated citation line.
+(defun message-insert-formatted-citation-line (&optional from date)
+  "Function that inserts a formatted citation line.
 
 See `message-citation-line-format'."
   ;; The optional args are for testing/debugging.  They will disappear later.
   ;; Example:
   ;; (with-temp-buffer
-  ;;   (message-insert-formated-citation-line
+  ;;   (message-insert-formatted-citation-line
   ;;    "John Doe <john.doe@example.invalid>"
   ;;    (current-time))
   ;;   (buffer-string))

diff --git a/lisp/gnus/nnml.el b/lisp/gnus/nnml.el
index 6f45b0b6fa04f686d88b7c1d437ae7cdfb20b1a0..0f1591810263304e87c7bf5c7da1b5ed4fdd8599 100644 (file)
--- a/lisp/gnus/nnml.el
+++ b/lisp/gnus/nnml.el
@@ -539,7 +539,8 @@ non-nil.")
 (deffoo nnml-request-rename-group (group new-name &optional server)
   (nnml-possibly-change-directory group server)
   (let ((new-dir (nnml-group-pathname new-name nil server))
-       (old-dir (nnml-group-pathname group nil server)))
+       (old-dir (nnml-group-pathname group nil server))
+       (file-name-coding-system nnmail-pathname-coding-system))
     (when (ignore-errors
            (make-directory new-dir t)
            t)