* gnus-msg.el (gnus-configure-posting-styles): Sort results.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 57b3780..e5ac0e6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,8 @@
 2002-09-18  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
-       * gnus-art.el (gnus-article-reply-with-original): Fix
+       * gnus-msg.el (gnus-configure-posting-styles): Sort results.
+
+       * gnus-art.el (gnus-article-reply-with-original): Correct
        with-current-buffer scope.
 
        * message.el (message-completion-alist): Add Reply-To, From, etc.

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 6becae0..f1007d0 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1809,6 +1809,8 @@ this is a reply."
       (setq results (delq name (delq address results)))
       ;; make-local-hook is not obsolete in Emacs 20 or XEmacs.
       (make-local-hook 'message-setup-hook)
+      (setq results (sort results (lambda (x y) 
+                                   (string-lessp (car x) (car y)))))
       (dolist (result results)
        (add-hook 'message-setup-hook
                  (cond