From b62b5f8d7cd04f78f7d2c15dbb2d842de0ba8c53 Mon Sep 17 00:00:00 2001 From: tsuchiya Date: Mon, 10 Sep 2001 03:55:21 +0000 Subject: [PATCH] * lisp/gnus-namazu.el (top): Not require `std11'. (gnus-namazu/get-current-from): Use `mail-extract-address-components' instead of `std11-extract-address-components'. --- ChangeLog | 5 +++++ lisp/gnus-namazu.el | 3 +-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 455f861..1492c75 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 2001-09-10 TSUCHIYA Masatoshi + * 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)))))))) -- 1.7.10.4