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