/[emacs]/emacs/lisp/gnus/message.el
ViewVC logotype

Diff of /emacs/lisp/gnus/message.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.94 by miles, Sat Oct 22 09:02:45 2005 UTC revision 1.95 by miles, Mon Oct 31 07:07:28 2005 UTC
# Line 6652  those headers." Line 6652  those headers."
6652                   (lookup-key global-map "\t")                   (lookup-key global-map "\t")
6653                   'indent-relative))))                   'indent-relative))))
6654    
6655    (eval-and-compile
6656      (condition-case nil
6657          (with-temp-buffer
6658            (let ((standard-output (current-buffer)))
6659              (eval '(display-completion-list nil "")))
6660            (defalias 'message-display-completion-list 'display-completion-list))
6661        (error ;; Don't use `wrong-number-of-arguments' here because of XEmacs.
6662         (defun message-display-completion-list (completions &optional ignore)
6663           "Display the list of completions, COMPLETIONS, using `standard-output'."
6664           (display-completion-list completions)))))
6665    
6666  (defun message-expand-group ()  (defun message-expand-group ()
6667    "Expand the group name under point."    "Expand the group name under point."
6668    (let* ((b (save-excursion    (let* ((b (save-excursion
# Line 6690  those headers." Line 6701  those headers."
6701            (let ((buffer-read-only nil))            (let ((buffer-read-only nil))
6702              (erase-buffer)              (erase-buffer)
6703              (let ((standard-output (current-buffer)))              (let ((standard-output (current-buffer)))
6704                (display-completion-list (sort completions 'string<) string))                (message-display-completion-list (sort completions 'string<)
6705                                                   string))
6706                (setq buffer-read-only nil)
6707              (goto-char (point-min))              (goto-char (point-min))
6708              (delete-region (point) (progn (forward-line 3) (point))))))))))              (delete-region (point) (progn (forward-line 3) (point))))))))))
6709    

Legend:
Removed from v.1.94  
changed lines
  Added in v.1.95

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26