[Emacs-diffs] emacs/lisp/mail pmailsum.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/01/16 03:17:18

Modified files:
        lisp/mail      : pmailsum.el 

Log message:
        (pmail-summary-mode-map, pmail-summary-output-to-pmail-file): Use
        pmail-summary-output rather than pmail-summary-output-to-babyl-file,
        which was renamed 2009-01-05.
        (pmail-output-as-seen): Declare.
        (pmail-summary-output): Also require pmailout non-interactively.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmailsum.el?cvsroot=emacs&r1=1.16&r2=1.17

Patches:
Index: pmailsum.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/pmailsum.el,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- pmailsum.el 8 Jan 2009 04:08:27 -0000       1.16
+++ pmailsum.el 16 Jan 2009 03:17:17 -0000      1.17
@@ -92,6 +92,8 @@
                     'pmail-message-labels-p
                     (concat ", \\(" (mail-comma-list-regexp labels) "\\),")))
 
+;; Moved here from pmail (which this file requires) 20090105, creating
+;; a compiler warning. ?
 ;; Return t if the attributes/keywords line of msg number MSG
 ;; contains a match for the regexp LABELS.
 (defun pmail-message-labels-p (msg labels)
@@ -941,7 +943,7 @@
   (define-key pmail-summary-mode-map "n"      'pmail-summary-next-msg)
   (define-key pmail-summary-mode-map "\en"    'pmail-summary-next-all)
   (define-key pmail-summary-mode-map "\e\C-n" 
'pmail-summary-next-labeled-message)
-  (define-key pmail-summary-mode-map "o"      
'pmail-summary-output-to-babyl-file)
+  (define-key pmail-summary-mode-map "o"      'pmail-summary-output)
   (define-key pmail-summary-mode-map "\C-o"   'pmail-summary-output)
   (define-key pmail-summary-mode-map "p"      'pmail-summary-previous-msg)
   (define-key pmail-summary-mode-map "\ep"    'pmail-summary-previous-all)
@@ -1008,7 +1010,7 @@
   '("Output (inbox)..." . pmail-summary-output))
 
 (define-key pmail-summary-mode-map [menu-bar classify output]
-  '("Output (Pmail)..." . pmail-summary-output-to-babyl-file))
+  '("Output (Pmail)..." . pmail-summary-output))
 
 (define-key pmail-summary-mode-map [menu-bar classify kill-label]
   '("Kill Label..." . pmail-summary-kill-label))
@@ -1624,8 +1626,10 @@
        (if (< i n)
            (pmail-summary-next-msg 1))))))
 
-(defalias 'pmail-summary-output-to-pmail-file
-  'pmail-summary-output-to-babyl-file)
+(defalias 'pmail-summary-output-to-pmail-file 'pmail-summary-output)
+
+(declare-function pmail-output-as-seen "pmailout"
+                 (file-name &optional count noattribute from-gnus))
 
 (defun pmail-summary-output-as-seen (&optional file-name n)
   "Append this message to system-inbox-format mail file named FILE-NAME.
@@ -1643,6 +1647,7 @@
    (progn (require 'pmailout)
          (list (pmail-output-read-file-name)
                (prefix-numeric-value current-prefix-arg))))
+  (require 'pmailout) ; for pmail-output-as-seen in non-interactive case
   (let ((i 0) prev-msg)
     (while
        (and (< i n)