message.el (message-expand-group, message-completion-in-region): Correct the order...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9c11d17645ceef8b61a338a1ea493967d95eeff3..fc8ff9fd695907fe4f57e8ccea7f12d4d220ffa8 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-09-16  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * message.el (message-expand-group, message-completion-in-region):
+       Correct the order of start and end of a region.
+
 2013-09-13  Glenn Morris  <rgm@gnu.org>
 
        * mml2015.el (gnus-create-image): Autoload it.

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index d6d6b3f8bede958d0f28fb8a5f4f95354c3818f5..ba4593fad45079ea3e585a878d9ac58741a408ff 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -7982,12 +7982,12 @@ those headers."
                 group)
               collection))
        gnus-active-hashtb))
-    (message-completion-in-region e b collection)))
+    (message-completion-in-region b e collection)))
 
 (defalias 'message-completion-in-region
   (if (fboundp 'completion-in-region)
       'completion-in-region
-    (lambda (e b hashtb)
+    (lambda (b e hashtb)
       (let* ((string (buffer-substring b e))
              (completions (all-completions string hashtb))
              comp)