From: teranisi <teranisi>
Date: Tue, 27 Aug 2002 02:20:55 +0000 (+0000)
Subject: * wl-address.el (wl-address-make-completion-list): Skip duplication checking.
X-Git-Tag: elmo-mark-root~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=309e769cb72c0b7cf497790fd6243697311a9a98;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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))))