From 822cae2cf2445286cda8a90f57d224fb88965498 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 8 Jan 2002 04:49:52 +0000 Subject: [PATCH] * nnheader.el (std11-extract-addresses-components): Protect against nil argument. --- ChangeLog | 5 +++++ lisp/nnheader.el | 13 +++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 7684314..85c9dc8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 2002-01-08 Katsumi Yamaoka + * lisp/nnheader.el (std11-extract-addresses-components): Protect + against nil argument. + +2002-01-08 Katsumi Yamaoka + * lisp/nnheader.el (mail-header-field-value): Alias to `std11-field-value'. (std11-field-value): New function. diff --git a/lisp/nnheader.el b/lisp/nnheader.el index 6fab90f..5cc00b2 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -1237,15 +1237,16 @@ find-file-hooks, etc. (defalias 'mail-header-fold-field 'std11-fold-field) - (defun-maybe std11-extract-addresses-components (string) + (defun std11-extract-addresses-components (string) "Extract a list of full name and canonical address from STRING. Each element looks like a list of the form (FULL-NAME CANONICAL-ADDRESS). If no name can be extracted, FULL-NAME will be nil." - (mapcar (function - (lambda (structure) - (list (std11-full-name-string structure) - (std11-address-string structure)))) - (std11-parse-addresses-string (std11-unfold-string string)))) + (when string + (mapcar (function + (lambda (structure) + (list (std11-full-name-string structure) + (std11-address-string structure)))) + (std11-parse-addresses-string (std11-unfold-string string))))) (defun mail-header-parse-addresses (string) "Parse STRING and return a list of MAILBOX / DISPLAY-NAME pairs." -- 1.7.10.4