From: tsuchiya <tsuchiya>
Date: Mon, 10 Sep 2001 03:55:21 +0000 (+0000)
Subject: * lisp/gnus-namazu.el (top): Not require `std11'.
X-Git-Tag: semi-gnus~28
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b62b5f8d7cd04f78f7d2c15dbb2d842de0ba8c53;p=elisp%2Fgnus.git-

* lisp/gnus-namazu.el (top): Not require `std11'.
(gnus-namazu/get-current-from): Use
`mail-extract-address-components' instead of
`std11-extract-address-components'.
---

diff --git a/ChangeLog b/ChangeLog
index 455f861..1492c75 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2001-09-10  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
+	* lisp/gnus-namazu.el (top): Not require `std11'.
+	(gnus-namazu/get-current-from): Use
+	`mail-extract-address-components' instead of
+	`std11-extract-address-components'.
+
 	* lisp/gnus-namazu.el: New file.
 
 	* lisp/gnus.el (top): Add autoload of `gnus-namazu-search'.
diff --git a/lisp/gnus-namazu.el b/lisp/gnus-namazu.el
index 9955af9..4707858 100644
--- a/lisp/gnus-namazu.el
+++ b/lisp/gnus-namazu.el
@@ -68,7 +68,6 @@
 (require 'nnheader)
 (require 'nnmail)
 (require 'gnus-sum)
-(require 'std11)
 
 
 (defgroup gnus-namazu nil
@@ -276,7 +275,7 @@ options make any sense in this context."
        (bufferp gnus-namazu/read-query-original-buffer)
        (with-current-buffer gnus-namazu/read-query-original-buffer
 	 (when (eq major-mode 'gnus-summary-mode)
-	   (cadr (std11-extract-address-components
+	   (cadr (mail-extract-address-components
 		  (mail-header-from
 		   (gnus-summary-article-header))))))))