[Mew-dist 13727] Re: 1.95b48 pop error

[Kazu Yamamoto ( 山本和彦 )]

From: NARA Susumu <nara at example.com>
Subject: [Mew-dist 13725] Re: 1.95b48 pop error

> Message モードの表示が化けてるんですが、POPしてきたファイルの内容が化
> けてるので表示も化けてる事になります。

Emacs 20.7 or 21 で再現するようです。(今日、化けるメールを送って来るは
ずのない友だちのメールが、化けていたので気付きました。)

これで直ると思います。

＃化けるのは大抵スパムなので、相手にしておらず、気付いていませんでした。

--かず
-------------- next part --------------
Index: mew-pop.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-pop.el,v
retrieving revision 1.33
diff -c -r1.33 mew-pop.el
*** mew-pop.el	2000/07/18 08:48:04	1.33
--- mew-pop.el	2000/07/27 05:11:23
***************
*** 192,197 ****
--- 192,199 ----
        (set-process-buffer process buf)
        (save-excursion
  	(set-buffer buf)
+ 	(if (fboundp 'set-buffer-multibyte)
+ 	    (set-buffer-multibyte nil))
  	(setq mew-scan-ids nil))
        (message "Receiving in background ... "))
       (t
***************
*** 263,272 ****
      (mew-pop-set-next pnm nil)
      (if (processp sshpro) (delete-process sshpro))
      (mew-pop-set-ssh-process pnm nil)
!     (mew-set-summary-buffer-process-status inbox nil)
!     (save-excursion
!       (set-buffer inbox)
!       (setq mew-summary-buffer-process nil))
      (run-hooks 'mew-pop-flush-hook)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
--- 265,276 ----
      (mew-pop-set-next pnm nil)
      (if (processp sshpro) (delete-process sshpro))
      (mew-pop-set-ssh-process pnm nil)
!     (if (null inbox)
! 	()
!       (mew-set-summary-buffer-process-status inbox nil)
!       (save-excursion
! 	(set-buffer inbox)
! 	(setq mew-summary-buffer-process nil)))
      (run-hooks 'mew-pop-flush-hook)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
***************
*** 561,569 ****
--- 565,577 ----
      (set-file-modes file mew-file-mode)
      (mew-pop-set-cnt pnm (1+ (mew-pop-get-cnt pnm)))
      ;;
+     (if (fboundp 'set-buffer-multibyte)
+ 	(set-buffer-multibyte t))
      (setq vec (mew-pop-scan-header))
      (aset vec 0 fnum)
      (setq line (mew-scan-format vec width truncated))
+     (if (fboundp 'set-buffer-multibyte)
+ 	(set-buffer-multibyte nil))
      (save-excursion
        (set-buffer inbox)
        (let* ((after-change-functions nil)