[Emacs-diffs] Changes to emacs/lisp/gnus/message.el

[Miles Bader]

Index: emacs/lisp/gnus/message.el
diff -c emacs/lisp/gnus/message.el:1.94 emacs/lisp/gnus/message.el:1.95
*** emacs/lisp/gnus/message.el:1.94     Sat Oct 22 09:02:45 2005
--- emacs/lisp/gnus/message.el  Mon Oct 31 07:07:28 2005
***************
*** 6652,6657 ****
--- 6652,6668 ----
                 (lookup-key global-map "\t")
                 'indent-relative))))
  
+ (eval-and-compile
+   (condition-case nil
+       (with-temp-buffer
+       (let ((standard-output (current-buffer)))
+         (eval '(display-completion-list nil "")))
+       (defalias 'message-display-completion-list 'display-completion-list))
+     (error ;; Don't use `wrong-number-of-arguments' here because of XEmacs.
+      (defun message-display-completion-list (completions &optional ignore)
+        "Display the list of completions, COMPLETIONS, using 
`standard-output'."
+        (display-completion-list completions)))))
+ 
  (defun message-expand-group ()
    "Expand the group name under point."
    (let* ((b (save-excursion
***************
*** 6690,6696 ****
          (let ((buffer-read-only nil))
            (erase-buffer)
            (let ((standard-output (current-buffer)))
!             (display-completion-list (sort completions 'string<) string))
            (goto-char (point-min))
            (delete-region (point) (progn (forward-line 3) (point))))))))))
  
--- 6701,6709 ----
          (let ((buffer-read-only nil))
            (erase-buffer)
            (let ((standard-output (current-buffer)))
!             (message-display-completion-list (sort completions 'string<)
!                                              string))
!           (setq buffer-read-only nil)
            (goto-char (point-min))
            (delete-region (point) (progn (forward-line 3) (point))))))))))