Mercurial > hg > xemacs-beta

comparison lisp/tm/gnus-sum-mime.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents fe104dbd9147
children cca96a509cfe
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Created: 1996/8/6 6 ;; Created: 1996/8/6
7 ;; Version: 7 ;; Version:
8 ;; $Id: gnus-sum-mime.el,v 1.4 1997/03/16 03:05:46 steve Exp $ 8 ;; $Id: gnus-sum-mime.el,v 1.5 1997/03/28 02:29:05 steve Exp $
9 ;; Keywords: news, MIME, multimedia, multilingual, encoded-word 9 ;; Keywords: news, MIME, multimedia, multilingual, encoded-word
10 10
11 ;; This file is not part of GNU Emacs yet. 11 ;; This file is not part of GNU Emacs yet.
12 12
13 ;; This program is free software; you can redistribute it and/or 13 ;; This program is free software; you can redistribute it and/or
54 default-mime-charset) 54 default-mime-charset)
55 default-mime-charset))) 55 default-mime-charset)))
56 (goto-char (point-min)) 56 (goto-char (point-min))
57 (while (< (point)(point-max)) 57 (while (< (point)(point-max))
58 (decode-mime-charset-region (point) 58 (decode-mime-charset-region (point)
59 (progn 59 (point-at-eol)
60 (end-of-line)
61 (point))
62 charset) 60 charset)
63 (end-of-line) 61 (end-of-line)
64 (forward-char) 62 (let ((signal-error-on-buffer-boundary nil))
63 (forward-char))
65 ))) 64 )))
66 65
67 66
68 ;;; @ command functions 67 ;;; @ command functions
69 ;;; 68 ;;;