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

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/12/02 03:11:38

Modified files:
        lisp/gnus      : ChangeLog message.el 

Log message:
        (message-completion-in-region): New compatibility function.
        (message-expand-group): Use it.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.846&r2=1.847
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/message.el?cvsroot=emacs&r1=1.178&r2=1.179

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.846
retrieving revision 1.847
diff -u -b -r1.846 -r1.847
--- ChangeLog   2 Dec 2009 00:48:21 -0000       1.846
+++ ChangeLog   2 Dec 2009 03:11:38 -0000       1.847
@@ -1,3 +1,8 @@
+2009-12-02  Stefan Monnier  <address@hidden>
+
+       * message.el (message-completion-in-region): New compatibility function.
+       (message-expand-group): Use it.
+
 2009-12-02  Katsumi Yamaoka  <address@hidden>
 
        * gnus-group.el (gnus-group-prepare-flat): Check also whether groups

Index: message.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/message.el,v
retrieving revision 1.178
retrieving revision 1.179
diff -u -b -r1.178 -r1.179
--- message.el  1 Dec 2009 19:01:42 -0000       1.178
+++ message.el  2 Dec 2009 03:11:38 -0000       1.179
@@ -7712,9 +7712,15 @@
                 (point))
                (skip-chars-backward "^, \t\n") (point))))
         (completion-ignore-case t)
-        (string (buffer-substring b (progn (skip-chars-forward "^,\t\n ")
-                                           (point))))
-        (hashtb (and (boundp 'gnus-active-hashtb) gnus-active-hashtb))
+         (e (progn (skip-chars-forward "^,\t\n ") (point)))
+        (hashtb (and (boundp 'gnus-active-hashtb) gnus-active-hashtb)))
+    (message-completion-in-region e b hashtb)))
+
+(defalias 'message-completion-in-region
+  (if (fboundp 'completion-in-region)
+      'completion-in-region
+    (lambda (e b hashtb)
+      (let* ((string (buffer-substring b e))
         (completions (all-completions string hashtb))
         comp)
     (delete-region b (point))
@@ -7742,7 +7748,8 @@
                                               string))
            (setq buffer-read-only nil)
            (goto-char (point-min))
-           (delete-region (point) (progn (forward-line 3) (point))))))))))
+                (delete-region (point)
+                               (progn (forward-line 3) (point))))))))))))
 
 (defun message-expand-name ()
   (cond ((and (memq 'eudc message-expand-name-databases)