[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/gnus ChangeLog message.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] emacs/lisp/gnus ChangeLog message.el |
Date: |
Wed, 02 Dec 2009 03:11:39 +0000 |
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)