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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76f251b..70c133a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/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.
 2013-09-13  Glenn Morris  <rgm@gnu.org>
 
        * mml2015.el (gnus-create-image): Autoload it.

diff --git a/lisp/message.el b/lisp/message.el
index 4eb2a57..4878dc3 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -8026,12 +8026,12 @@ those headers."
                 group)
               collection))
        gnus-active-hashtb))
                 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
 
 (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)
       (let* ((string (buffer-substring b e))
              (completions (all-completions string hashtb))
              comp)