+2006-10-27 Teodor Zlatanov <tzz@lifelogs.com>
+
+ * spam.el (spam-parse-address): new function for better parsing,
+ catching errors, etc.
+ (spam-check-BBDB, spam-enter-ham-BBDB, spam-parse-list): use it
+
2006-10-26 Reiner Steib <Reiner.Steib@gmx.de>
* mm-view.el: Add interactive arg to html2text autoload.
;;{{{ convenience functions
+;;; function to wrap address parsing, uses the ietf-drums-parse-address interface
+(defun spam-parse-address (who)
+ (condition-case nil
+ (ietf-drums-parse-address who)
+ (error nil)))
+
(defun spam-clear-cache (symbol)
"Clear the spam-caches entry for a check."
(remhash symbol spam-caches))
"Enter an address into the BBDB; implies ham (non-spam) sender"
(dolist (from addresses)
(when (stringp from)
- (let* ((parsed-address (ietf-drums-parse-address from))
+ (let* ((parsed-address (spam-parse-address from))
(name (or (car-safe (cdr-safe parsed-address)) "Ham Sender"))
(remove-function (if remove
'bbdb-delete-record-internal
(intern (downcase (symbol-name symbol)) bbdb-cache))
bbdb-hashtable))))
(puthash 'spam-use-BBDB bbdb-cache spam-caches)))
- (setq who (car-safe (ietf-drums-parse-address who)))
+ (setq who (car-safe (spam-parse-address who)))
(when who
(if
(if spam-cache-lookups
(forward-line 1)
;; insert the e-mail address if detected, otherwise the raw data
(unless (zerop (length address))
- (let ((pure-address (car-safe (ietf-drums-parse-address address))))
+ (let ((pure-address (car-safe (spam-parse-address address))))
(push (or pure-address address) contents)))))
(nreverse contents))))