message.el (message-expand-group, message-completion-in-region): Correct the order of start and end of a region

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9c11d17645c..fc8ff9fd695 100644
--- 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 d6d6b3f8bed..ba4593fad45 100644
--- 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)