+1998-05-05 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * README.en (Required environment): Modify for FLIM 1.1.0.
+
+ * SEMI-CFG: Modify error message for FLIM 1.1.0.
+
+1998-05-04 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * semi-def.el: Abolish 'mime/find-file-function because it is not
+ used.
+
+1998-05-04 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * TODO (keymap-prefix): done.
+ (mailcap support): done.
+ (Change 'mime-acting-condition to condition-tree format): done.
+ (Unify entity display specifications to 'mime-preview-condition):
+ done.
+
+1998-05-04 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * NEWS: Add description for SEMI 1.4.
+
+1998-05-04 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-view.el: Abolish setting for tm-sh-scripts.
+
+ * semi-setup.el: Abolish MUA depended signature setting.
+
+ * mail-mime-setup.el: Move setting for 'mail-signature from
+ semi-setup.el.
+
+1998-05-04 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * semi-setup.el: Use 'mime-add-condition to set up for mime-pgp.
+
+ * mime-pgp.el: Abolish setting for 'mime-preview-condition and
+ mime-acting-condition.
+
+ * semi-def.el (mime-condition-type-alist): New variable.
+ (mime-condition-mode-alist): New variable.
+ (mime-add-condition): New function.
+
+1998-05-04 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-view.el (mime-acting-condition): Use
+ 'ctree-set-calist-with-default to set up 'mime-method-to-save.
+
+1998-05-03 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-view.el (mime-acting-condition): Delete setting for
+ metamail.
+
+1998-05-03 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mime-play.el (mime-activate-mailcap-method): New function.
+ (mime-raw-play-entity): Use 'mime-activate-mailcap-method for
+ mailcap method.
+
+ * mime-view.el (mime-acting-condition): Read mailcap.
+
+1998-05-03 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * mailcap.el: Move mailcap.el to FLIM.
+
1998-05-02 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* mime-view.el (mime-view-announcement-for-message/partial):
\f
1998-05-02 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * WEMI: Version 1.3.1 (\e-DÒfuna) was released.\e-A
+ * WEMI: Version 1.3.1 (\e-DÒfuna)\e-A was released.
1998-05-02 MORIOKA Tomohiko <morioka@jaist.ac.jp>
\f
1998-04-07 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * WEMI: Version 1.2.0 (T\e-Dòkyò) was released.\e-A
+ * WEMI: Version 1.2.0 (T\e-Dòkyò)\e-A was released.
* README.en: Modify for WEMI.
\f
1998-03-13 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * SEMI: Version 1.0.2 (Nonoichi-K\e-Dòdaimae) was released.\e-A
+ * SEMI: Version 1.0.2 (Nonoichi-K\e-Dòdaimae)\e-A was released.
1998-03-12 MORIOKA Tomohiko <morioka@jaist.ac.jp>
\f
1998-02-25 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * SEMI: Version 1.0.0 (Nukaj\e-Dþtaku-mae) was released.\e-A
+ * SEMI: Version 1.0.0 (Nukaj\e-Dþtaku-mae)\e-A was released.
* SEMI-ELS: Remove mime-tar.el.
\f
1997-11-16 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * SEMI: Version 0.116 (D\e-Dòhòji) was released.\e-A
+ * SEMI: Version 0.116 (D\e-Dòhòji)\e-A was released.
1997-11-15 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+++ /dev/null
-;;; mailcap.el --- mailcap parser
-
-;; Copyright (C) 1997,1998 Free Software Foundation, Inc.
-
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Created: 1997/6/27
-;; Keywords: mailcap, setting, configuration, MIME, multimedia
-
-;; This file is part of SEMI (Spadework for Emacs MIME Interfaces).
-
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU General Public License as
-;; published by the Free Software Foundation; either version 2, or (at
-;; your option) any later version.
-
-;; This program is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-;;; @ comment
-;;;
-
-(defsubst mailcap-skip-comment ()
- (let ((chr (char-after (point))))
- (when (and chr
- (or (= chr ?\n)
- (= chr ?#)))
- (forward-line)
- t)))
-
-
-;;; @ token
-;;;
-
-(defsubst mailcap-look-at-token ()
- (if (looking-at mime-token-regexp)
- (let ((beg (match-beginning 0))
- (end (match-end 0)))
- (goto-char end)
- (buffer-substring beg end)
- )))
-
-
-;;; @ typefield
-;;;
-
-(defsubst mailcap-look-at-type-field ()
- (let ((type (mailcap-look-at-token)))
- (if type
- (if (eq (char-after (point)) ?/)
- (progn
- (forward-char)
- (let ((subtype (mailcap-look-at-token)))
- (if subtype
- (cons (cons 'type (intern type))
- (unless (string= subtype "*")
- (list (cons 'subtype (intern subtype)))
- )))))
- (list (cons 'type (intern type)))
- ))))
-
-
-;;; @ field separator
-;;;
-
-(defsubst mailcap-skip-field-separator ()
- (let ((ret (looking-at "\\([ \t]\\|\\\\\n\\)*;\\([ \t]\\|\\\\\n\\)*")))
- (when ret
- (goto-char (match-end 0))
- t)))
-
-
-;;; @ mtext
-;;;
-
-(defsubst mailcap-look-at-schar ()
- (let ((chr (char-after (point))))
- (if (and (>= chr ? )
- (/= chr ?\;)
- (/= chr ?\\)
- )
- (prog1
- chr
- (forward-char)))))
-
-(defsubst mailcap-look-at-qchar ()
- (let ((chr (char-after (point))))
- (when (eq chr ?\\)
- (forward-char 2)
- (char-before (point))
- )))
-
-(defsubst mailcap-look-at-mtext ()
- (let ((beg (point)))
- (while (or (mailcap-look-at-schar)
- (mailcap-look-at-schar)))
- (buffer-substring beg (point))
- ))
-
-
-;;; @ field
-;;;
-
-(defsubst mailcap-look-at-field ()
- (let ((token (mailcap-look-at-token)))
- (if token
- (if (looking-at "[ \t]*=[ \t]*")
- (let ((value (progn
- (goto-char (match-end 0))
- (mailcap-look-at-mtext))))
- (if value
- (cons (intern token) value)
- ))
- (list (intern token))
- ))))
-
-
-;;; @ mailcap entry
-;;;
-
-(defun mailcap-look-at-entry ()
- (let ((type (mailcap-look-at-type-field)))
- (if (and type (mailcap-skip-field-separator))
- (let ((view (mailcap-look-at-mtext))
- fields field)
- (when view
- (while (and (mailcap-skip-field-separator)
- (setq field (mailcap-look-at-field))
- )
- (setq fields (cons field fields))
- )
- (nconc type
- (list (cons 'view view))
- fields))))))
-
-
-;;; @ main
-;;;
-
-(defun mailcap-parse-buffer (&optional buffer order)
- "Parse BUFFER as a mailcap, and return the result.
-If optional argument ORDER is a function, result is sorted by it.
-If optional argument ORDER is not specified, result is sorted original
-order. Otherwise result is not sorted."
- (save-excursion
- (if buffer
- (set-buffer buffer))
- (goto-char (point-min))
- (let (entries entry)
- (while (progn
- (while (mailcap-skip-comment))
- (setq entry (mailcap-look-at-entry))
- )
- (setq entries (cons entry entries))
- (forward-line)
- )
- (cond ((functionp order) (sort entries order))
- ((null order) (nreverse entries))
- (t entries)
- ))))
-
-(defvar mailcap-file "~/.mailcap"
- "*File name of user's mailcap file.")
-
-(defun mailcap-parse-file (&optional filename order)
- "Parse FILENAME as a mailcap, and return the result.
-If optional argument ORDER is a function, result is sorted by it.
-If optional argument ORDER is not specified, result is sorted original
-order. Otherwise result is not sorted."
- (or filename
- (setq filename mailcap-file))
- (with-temp-buffer
- (insert-file-contents filename)
- (mailcap-parse-buffer (current-buffer) order)
- ))
-
-
-;;; @ end
-;;;
-
-(provide 'mailcap)
-
-;;; mailcap.el ends here
projects / elisp / semi.git / commitdiff