- (setq charset (mail-fetch-field "charset"))))
- (if (and (mm-uu-pgp-encrypted-test)
- (with-current-buffer buf
- (mml2015-clean-buffer)
- (funcall (mml2015-clear-decrypt-function))
- (equal (mm-handle-multipart-ctl-parameter mm-security-handle
- 'gnus-info)
- "OK")))
- (with-current-buffer buf
- ;; Remove leading newlines.
- (goto-char (point-min))
- (when (looking-at "\n+")
- (delete-region (point-min) (match-end 0)))
- ;; Decode charset.
- (when (and charset
+ (setq charset (mail-fetch-field "charset")))
+ (if (and (mm-uu-pgp-encrypted-test)
+ (progn
+ (mml2015-clean-buffer)
+ (funcall (mml2015-clear-decrypt-function))
+ (equal (mm-handle-multipart-ctl-parameter mm-security-handle
+ 'gnus-info)
+ "OK")))
+ (progn
+ ;; Decode charset.
+ (if (and (or charset
+ (setq charset gnus-newsgroup-charset))