From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Fri, 14 Apr 2006 10:30:27 +0000 (+0000)
Subject: * message.el (message-display-abbrev): Small optimization.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=af948193f92fd87f0a7f488ed24d5e05e976b270;p=gnus

* message.el (message-display-abbrev): Small optimization.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3aa0a2db2..968dbc13e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2006-04-14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* message.el (message-display-abbrev): Small optimization.
+
 	* ecomplete.el (ecomplete-display-matches): Allow automatic
 	display. 
 
diff --git a/lisp/message.el b/lisp/message.el
index bde3bba12..07e358551 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -7182,7 +7182,8 @@ From headers in the original article."
 (defun message-display-abbrev (&optional choose)
   "Display the next possible abbrev for the text before point."
   (interactive (list t))
-  (when (and (message-point-in-header-p)
+  (when (and (member (char-after (line-beginning-position)) '(?C ?T ? ))
+	     (message-point-in-header-p)
 	     (save-excursion
 	       (save-restriction
 		 (message-narrow-to-field)