diff options
author | Robert Fenk <fenk@users.sourceforge.net> | 2007-12-04 23:24:53 +0000 |
---|---|---|
committer | Robert Fenk <fenk@users.sourceforge.net> | 2007-12-04 23:24:53 +0000 |
commit | 2f2fe93d13789ce152102eeff0c8e6e634eaecc5 (patch) | |
tree | e0928d6c828828dc65cd663fbac20f03c8789510 /lisp/bbdb-gnus.el | |
parent | a03ec7454cf89727d26726a0b52953110ad89d5d (diff) |
Fixed two compile time warnings.
Diffstat (limited to 'lisp/bbdb-gnus.el')
-rw-r--r-- | lisp/bbdb-gnus.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/bbdb-gnus.el b/lisp/bbdb-gnus.el index 0963f00..482cc4a 100644 --- a/lisp/bbdb-gnus.el +++ b/lisp/bbdb-gnus.el @@ -37,7 +37,8 @@ ;;; Compiler hushing (eval-when-compile - (defvar gnus-optional-headers)) + (defvar gnus-optional-headers) + (defvar gnus-summary-to-prefix)) (defun bbdb/gnus-get-message-id () "Return the message-id of the current message." @@ -330,8 +331,7 @@ This function is meant to be used with the user function defined in (to (when (and (boundp 'gnus-ignored-from-addresses) gnus-ignored-from-addresses (string-match gnus-ignored-from-addresses from)) - (let* ((headers (mail-header-extra header)) - (to (or (mail-header 'To) + (let* ((to (or (mail-header 'To) (mail-header 'CC) (mail-header 'Newsgroups)))) (if (and to (listp to)) |