;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Created: 1996/8/6
;; Version:
-;; $Id: gnus-sum-mime.el,v 0.3 1996/08/12 09:04:14 morioka Exp $
+;; $Id: gnus-sum-mime.el,v 0.4 1996/09/02 10:03:58 morioka Exp $
;; Keywords: news, MIME, multimedia, multilingual, encoded-word
;; This file is not part of GNU Emacs yet.
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with This program. If not, write to the Free Software
-;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with this program; see the file COPYING. If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
;;; Code:
(defun gnus-set-summary-default-charset ()
(let ((charset
- (save-excursion
- (set-buffer gnus-summary-buffer)
- (let ((rest gnus-newsgroup-default-charset-alist)
- cell)
- (catch 'tag
- (while (setq cell (car rest))
- (if (string-match (car cell) gnus-newsgroup-name)
- (throw 'tag
- (progn
- (make-local-variable 'default-mime-charset)
- (setq default-mime-charset (cdr cell))
- )))
- (setq rest (cdr rest))
- )))
+ (if (buffer-live-p gnus-summary-buffer)
+ (save-excursion
+ (set-buffer gnus-summary-buffer)
+ (let ((rest gnus-newsgroup-default-charset-alist)
+ cell)
+ (catch 'tag
+ (while (setq cell (car rest))
+ (if (string-match (car cell) gnus-newsgroup-name)
+ (throw 'tag
+ (progn
+ (make-local-variable 'default-mime-charset)
+ (setq default-mime-charset (cdr cell))
+ )))
+ (setq rest (cdr rest))
+ )))
+ default-mime-charset)
default-mime-charset)))
(goto-char (point-min))
(while (< (point)(point-max))
(progn
(end-of-line)
(point))
- default-mime-charset)
+ charset)
(forward-char)
)))