[Emacs-diffs] emacs/lisp ChangeLog mail/feedmail.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/12/10 08:26:01

Modified files:
        lisp           : ChangeLog 
        lisp/mail      : feedmail.el 

Log message:
        (top-level): Move require 'mail-utils to start.
        (expand-mail-aliases): Define for compiler.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16878&r2=1.16879
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/feedmail.el?cvsroot=emacs&r1=1.38&r2=1.39

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16878
retrieving revision 1.16879
diff -u -b -r1.16878 -r1.16879
--- ChangeLog   10 Dec 2009 08:24:41 -0000      1.16878
+++ ChangeLog   10 Dec 2009 08:25:58 -0000      1.16879
@@ -1,5 +1,8 @@
 2009-12-10  Glenn Morris  <address@hidden>
 
+       * mail/feedmail.el (top-level): Move require 'mail-utils to start.
+       (expand-mail-aliases): Define for compiler.
+
        * vc-annotate.el (log-view-vc-backend, log-view-vc-fileset):
        Define for compiler.
 

Index: mail/feedmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/feedmail.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- mail/feedmail.el    3 Nov 2009 02:04:35 -0000       1.38
+++ mail/feedmail.el    10 Dec 2009 08:26:01 -0000      1.39
@@ -286,7 +286,12 @@
 
 (defconst feedmail-patch-level "8")
 
-(eval-when-compile (require 'smtpmail) (require 'cl))
+(require 'mail-utils)               ; pick up mail-strip-quoted-names
+
+(eval-when-compile
+  (require 'smtpmail)
+  (require 'cl))
+
 (autoload 'mail-do-fcc "sendmail")
 
 (defgroup feedmail nil
@@ -1950,6 +1955,7 @@
      (feedmail-rfc822-time-zone time)
      )))
 
+(declare-function expand-mail-aliases "mailalias" (beg end &optional exclude))
 
 (defun feedmail-send-it-immediately ()
   "Handle immediate sending, including during a queue run."
@@ -2582,7 +2588,6 @@
     ))
 
 
-(require 'mail-utils)                  ; pick up mail-strip-quoted-names
 (defun feedmail-deduce-address-list (message-buffer header-start header-end 
addr-regexp address-list)
   "Get address list with all comments and other excitement trimmed.
 Addresses are collected only from headers whose names match the fourth