Clarify documentation for the new pgg method.

[gnus] / lisp / ecomplete.el

diff --git a/lisp/ecomplete.el b/lisp/ecomplete.el
index 1a851e9..285aca4 100644 (file)
--- a/lisp/ecomplete.el
+++ b/lisp/ecomplete.el
@@ -1,5 +1,6 @@
 ;;; ecomplete.el --- electric completion of addresses and the like
-;; Copyright (C) 2006 Free Software Foundation, Inc.
+
+;; Copyright (C) 2006, 2007  Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: mail
@@ -8,7 +9,7 @@
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
+;; the Free Software Foundation; either version 3, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -39,7 +40,7 @@
 
 (defcustom ecomplete-database-file-coding-system 'iso-2022-7bit
   "Coding system used for writing the ecomplete database file."
-  :type '(repeat (symbol :tag "Coding system"))
+  :type '(symbol :tag "Coding system")
   :group 'ecomplete)
 
 ;;; Internal variables.
@@ -118,7 +119,7 @@
          nil)
       (if (not choose)
          (progn
-           (message matches)
+           (message "%s" matches)
            nil)
        (setq highlight (ecomplete-highlight-match-line matches line))
        (while (not (memq (setq command (read-event highlight)) '(? return)))
@@ -137,12 +138,12 @@
     (goto-char (point-min))
     (forward-line line)
     (save-restriction
-      (narrow-to-region (point) (line-end-position))
+      (narrow-to-region (point) (point-at-eol))
       (while (not (eobp))
        ;; Put the 'region face on any charactes on this line that
        ;; aren't already highlighted.
        (unless (get-text-property (point) 'face)
-         (put-text-property (point) (1+ (point)) 'face 'region))
+         (put-text-property (point) (1+ (point)) 'face 'highlight))
        (forward-char 1)))
     (buffer-string)))