;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Code:
(let* ((id (cdr (assoc "id" situation)))
(target (cdr (assq 'major-mode situation)))
(subject-buf (eval (cdr (assq 'summary-buffer-exp situation))))
+ (mother (current-buffer))
subject-id
(root-dir (expand-file-name
(concat "m-prts-" (user-login-name))
(not (y-or-n-p "Merge partials?"))
)
(mime-store-message/partial-piece entity situation)
- (setq subject-id (mime-read-field 'Subject entity))
+ (setq subject-id (mime-entity-read-field entity 'Subject))
(if (string-match "[0-9\n]+" subject-id)
(setq subject-id (substring subject-id 0 (match-beginning 0)))
)
(situation (mime-entity-situation message))
(the-id (cdr (assoc "id" situation))))
(when (string= the-id id)
- (save-excursion
- (set-buffer (mime-entity-buffer message))
+ (with-current-buffer mother
(mime-store-message/partial-piece message situation)
)
(if (file-exists-p full-file)