+2006-04-28 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * mm-uu.el (mm-uu-pgp-encrypted-extract-1): Assume buffer is made
+ unibyte after clear-decrypt function runs.
+
+ * mml2015.el (mml2015-pgg-clear-decrypt): Treat data which pgg
+ returns as a unibyte string.
+
2006-04-27 Katsumi Yamaoka <yamaoka@jpl.org>
* lpath.el: Don't fbind string-as-multibyte for XEmacs.
"OK")))
(progn
;; Decode charset.
- (when (and (or charset
- (setq charset gnus-newsgroup-charset))
- (setq charset (mm-charset-to-coding-system charset))
- (not (eq charset 'ascii)))
- (mm-decode-coding-region (point-min) (point-max) charset))
+ (if (and (or charset
+ (setq charset gnus-newsgroup-charset))
+ (setq charset (mm-charset-to-coding-system charset))
+ (not (eq charset 'ascii)))
+ ;; Assume that buffer's multibyteness is turned off.
+ ;; See `mml2015-pgg-clear-decrypt'.
+ (insert (mm-decode-coding-string (prog1
+ (buffer-string)
+ (erase-buffer)
+ (mm-enable-multibyte))
+ charset))
+ (mm-enable-multibyte))
(list (mm-make-handle buf mm-uu-text-plain-type)))
(list (mm-make-handle buf '("application/pgp-encrypted")))))))
(buffer-string))))
(progn
(erase-buffer)
+ ;; Treat data which pgg returns as a unibyte string.
+ (mm-disable-multibyte)
(insert-buffer-substring pgg-output-buffer)
(goto-char (point-min))
(while (search-forward "\r\n" nil t)