* wl-address.el (wl-address-make-completion-list): Skip duplication checking.

(wl-address-make-address-list): use `cons' and `nreverse' instead of `append'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 565c24e..49e7f54 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2002-08-27  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-address.el (wl-address-make-completion-list): Skip duplication
+       checking.
+       (wl-address-make-address-list): use `cons' and `nreverse' instead of
+       `append'.
+
 2002-08-26  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * wl-draft.el (wl-draft-insert-x-face-field): Use `goto-char'

diff --git a/wl/wl-address.el b/wl/wl-address.el
index b78439d..922975a 100644 (file)
--- a/wl/wl-address.el
+++ b/wl/wl-address.el
@@ -300,19 +300,16 @@ Matched address lists are append to CL."
                       (nth 2 addr-tuple)) " <"(nth 0 addr-tuple)">")))
             cl))
       ;; nickname completion.
-      (unless (or (equal (nth 1 addr-tuple) (nth 0 addr-tuple))
-                 ;; already exists
-                 (assoc (nth 1 addr-tuple) cl))
-       (setq cl
-             (cons
-              (cons (nth 1 addr-tuple)
-                    (if (or (string= (nth 2 addr-tuple) "")
-                            (string-match ".*:.*;$" (nth 0 addr-tuple)))
-                        (nth 0 addr-tuple)
-                      (concat
-                       (wl-address-quote-specials
-                        (nth 2 addr-tuple)) " <"(nth 0 addr-tuple)">")))
-              cl)))
+      (setq cl
+           (cons
+            (cons (nth 1 addr-tuple)
+                  (if (or (string= (nth 2 addr-tuple) "")
+                          (string-match ".*:.*;$" (nth 0 addr-tuple)))
+                      (nth 0 addr-tuple)
+                    (concat
+                     (wl-address-quote-specials
+                      (nth 2 addr-tuple)) " <"(nth 0 addr-tuple)">")))
+            cl))
       (setq address-list (cdr address-list)))
     cl))
 
@@ -545,13 +542,13 @@ Refresh `wl-address-list', `wl-address-completion-list', and
           (if (looking-at
                "^\\([^#\n][^ \t\n]+\\)[ \t]+\\(\".*\"\\)[ \t]+\\(\".*\"\\)[ \t]*.*$")
               (setq ret
-                    (wl-append-element
-                     ret
+                    (cons
                      (list (wl-match-buffer 1)
                            (read (wl-match-buffer 2))
-                           (read (wl-match-buffer 3))))))
+                           (read (wl-match-buffer 3)))
+                     ret)))
           (forward-line))
-        ret))))
+        (nreverse ret)))))
 
 (defun wl-address-get-petname-1 (string)
   (let ((address (downcase (wl-address-header-extract-address string))))