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

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/12/10 20:56:39

Modified files:
        lisp/mail      : pmail.el 

Log message:
        (pmail-insert-pmail-file-header): Function deleted.
        (pmail-decode-babyl-format): Function deleted.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/pmail.el?cvsroot=emacs&r1=1.26&r2=1.27

Patches:
Index: pmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/pmail.el,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -b -r1.26 -r1.27
--- pmail.el    10 Dec 2008 20:36:47 -0000      1.26
+++ pmail.el    10 Dec 2008 20:56:39 -0000      1.27
@@ -896,25 +896,6 @@
        (if run-mail-hook
            (run-hooks 'pmail-mode-hook))))))
 
-;; Given the value of MAILPATH, return a list of inbox file names.
-;; This is turned off because it is not clear that the user wants
-;; all these inboxes to feed into the primary pmail file.
-; (defun pmail-convert-mailpath (string)
-;   (let (idx list)
-;     (while (setq idx (string-match "[%:]" string))
-;       (let ((this (substring string 0 idx)))
-;      (setq string (substring string (1+ idx)))
-;      (setq list (cons (if (string-match "%" this)
-;                           (substring this 0 (string-match "%" this))
-;                         this)
-;                       list))))
-;     list))
-
-; I have checked that adding "-*- pmail -*-" to the BABYL OPTIONS line
-; will not cause emacs 18.55 problems.
-
-;; This calls pmail-decode-babyl-format if the file is already Babyl.
-
 (defun pmail-convert-file-maybe ()
   "Determine if the file needs to be converted to mbox format."
   (widen)
@@ -937,8 +918,7 @@
        (t (pmail-error-bad-format))))
 
 (defun pmail-error-bad-format (&optional msgnum)
-  "Report that the buffer contains a message that is not RFC2822
-compliant.
+  "Report that the buffer is not in the mbox file format.
 MSGNUM, if present, indicates the malformed message."
   (if msgnum
       (error "Message %s is not a valid RFC2822 message." msgnum)
@@ -967,20 +947,9 @@
       (delete-file old-file)
       (delete-file new-file))))
 
-(defun pmail-insert-pmail-file-header ()
-  (let ((buffer-read-only nil))
-    ;; -*-pmail-*- is here so that visiting the file normally
-    ;; recognizes it as an Pmail file.
-    (insert "BABYL OPTIONS: -*- pmail -*-
-Version: 5
-Labels:
-Note:   This is the header of an pmail file.
-Note:   If you are seeing it in pmail,
-Note:    it means the file has no messages in it.\n\^_")))
-
 (defun pmail-get-coding-system ()
-  "Return a suitable coding system to use for the mail message in
-the region."
+  "Return a suitable coding system to use for the current mail message.
+The buffer is expected to be narrowed to just the header of the message."
   (let ((content-type-header (mail-fetch-field "content-type"))
        separator)
     (save-excursion
@@ -990,43 +959,6 @@
        (substring content-type-header (match-beginning 1) (match-end 1))
       'undecided)))
 
-;; Decode Babyl formatted part at the head of current buffer by
-;; pmail-file-coding-system, or if it is nil, do auto conversion.
-
-(defun pmail-decode-babyl-format ()
-  (let ((modifiedp (buffer-modified-p))
-       (buffer-read-only nil)
-       (coding-system pmail-file-coding-system)
-       from to)
-    (goto-char (point-min))
-    (search-forward "\n\^_" nil t)     ; Skip BABYL header.
-    (setq from (point))
-    (goto-char (point-max))
-    (search-backward "\n\^_" from 'mv)
-    (setq to (point))
-    (unless (and coding-system
-                (coding-system-p coding-system))
-      (setq coding-system
-           ;; If pmail-file-coding-system is nil, Emacs 21 writes
-           ;; PMAIL files in emacs-mule, Emacs 22 in utf-8, but
-           ;; earlier versions did that with the current buffer's
-           ;; encoding.  So we want to favor detection of emacs-mule
-           ;; (whose normal priority is quite low) and utf-8, but
-           ;; still allow detection of other encodings if they won't
-           ;; fit.  The call to with-coding-priority below achieves
-           ;; that.
-           (with-coding-priority '(emacs-mule utf-8)
-             (detect-coding-region from to 'highest))))
-    (unless (eq (coding-system-type coding-system) 'undecided)
-      (set-buffer-modified-p t)                ; avoid locking when decoding
-      (let ((buffer-undo-list t))
-       (decode-coding-region from to coding-system))
-      (setq coding-system last-coding-system-used))
-    (set-buffer-modified-p modifiedp)
-    (setq buffer-file-coding-system nil)
-    (setq save-buffer-coding-system
-         (or coding-system 'undecided))))
-
 (defvar pmail-mode-map nil)
 (if pmail-mode-map
     nil