(require 'mime-view)
(require 'mime-edit)
(require 'mime-play)
+(require 'mime-parse)
+(eval-when-compile (require 'mmbuffer))
(require 'elmo)
+(require 'elmo-mime)
(require 'wl-vars)
+(require 'wl-util)
(eval-when-compile (require 'cl))
;;; Draft
(function wl-draft-yank-to-draft-buffer))))
(message-buffer (wl-current-message-buffer)))
(if message-buffer
- (save-excursion
- (set-buffer message-buffer)
+ (with-current-buffer message-buffer
(save-restriction
(widen)
(cond
(setq min (point-min)
beg (re-search-forward "^$" nil t)
end (point-max)))
- (save-excursion
- (set-buffer (setq new-buf (get-buffer-create new-name)))
+ (with-current-buffer (setq new-buf (get-buffer-create new-name))
(erase-buffer)
(insert-buffer-substring the-buf beg end)
(goto-char (point-min))
new-buf
(the-buf (current-buffer))
fields)
- (save-excursion
- (set-buffer (setq new-buf (get-buffer-create new-name)))
+ (with-current-buffer (setq new-buf (get-buffer-create new-name))
(erase-buffer)
(insert ?\n)
(insert-buffer-substring the-buf r-beg r-end)
(setq field-name (car rest))
(or (std11-field-body field-name)
(progn
- (save-excursion
- (set-buffer the-buf)
+ (with-current-buffer the-buf
(let ((entity (when mime-mother-buffer
(set-buffer mime-mother-buffer)
(get-text-property (point)
(defsubst wl-mime-node-id-to-string (node-id)
(if (consp node-id)
- (mapconcat (function (lambda (num) (format "%s" (1+ num))))
+ (mapconcat (lambda (num) (format "%s" (1+ num)))
(reverse node-id)
".")
"0"))
(inhibit-read-only t)
coding-system)
(unless region
- (error "Cannot find pgp encrypted region"))
+ (error "Cannot find PGP encrypted region"))
(save-restriction
(let ((props (text-properties-at (car region))))
(narrow-to-region (car region) (cdr region))
(let ((region (wl-find-region "^-+BEGIN PGP SIGNED MESSAGE-+$"
"^-+END PGP SIGNATURE-+$"))
coding-system)
+ (unless region
+ (error "Cannot find PGP signed region"))
(setq coding-system
(or (get-text-property (car region) 'wl-mime-decoded-coding-system)
(let* ((situation (mime-preview-find-boundary-info))