1 ;;; mime-partial.el --- Grabbing all MIME "message/partial"s.
3 ;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
5 ;; Author: OKABE Yasuo @ Kyoto University
6 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp>
7 ;; Keywords: message/partial, MIME, multimedia, mail, news
9 ;; This file is part of SEMI (Suite of Emacs MIME Interfaces).
11 ;; This program is free software; you can redistribute it and/or
12 ;; modify it under the terms of the GNU General Public License as
13 ;; published by the Free Software Foundation; either version 2, or (at
14 ;; your option) any later version.
16 ;; This program is distributed in the hope that it will be useful, but
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ;; General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
31 (defun mime-combine-message/partial-pieces-automatically (entity situation)
32 "Internal method for mime-view to combine message/partial messages
33 automatically. This function refers variable
34 `mime-request-partial-message-method-alist' to select function to display
35 partial messages using mime-view."
37 (let* ((id (cdr (assoc "id" situation)))
38 (target (cdr (assq 'major-mode situation)))
39 (subject-buf (eval (cdr (assq 'summary-buffer-exp situation))))
41 (root-dir (expand-file-name
42 (concat "m-prts-" (user-login-name)) mime-temp-directory))
43 (request-partial-message-method
44 (cdr (assq 'request-partial-message-method situation)))
46 (setq root-dir (concat root-dir "/" (replace-as-filename id)))
47 (setq full-file (concat root-dir "/FULL"))
50 (error "%s is not supported. Sorry." target)
53 ;; if you can't parse the subject line, try simple decoding method
54 (if (or (file-exists-p full-file)
55 (not (y-or-n-p "Merge partials?"))
57 (mime-store-message/partial-piece entity situation)
58 (setq subject-id (mime-read-field 'Subject entity))
59 (if (string-match "[0-9\n]+" subject-id)
60 (setq subject-id (substring subject-id 0 (match-beginning 0)))
63 (set-buffer subject-buf)
64 (while (search-backward subject-id nil t))
68 ;; request message at the cursor in Subject buffer.
69 (save-window-excursion
70 (funcall request-partial-message-method)
72 (situation (mime-entity-situation message))
73 (the-id (cdr (assoc "id" situation))))
74 (when (string= the-id id)
76 (set-buffer (mime-entity-buffer message))
77 (mime-store-message/partial-piece message situation)
79 (if (file-exists-p full-file)
84 (search-forward subject-id nil t)
95 (provide 'mime-partial)
97 (run-hooks 'mime-partial-load-hook)
99 ;;; mime-partial.el ends here