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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3aa0a2d..968dbc1 100644 (file)
--- 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 bde3bba..07e3585 100644 (file)
--- 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)