+2000-12-26 Daiki Ueno <ueno@unixuser.org>
+
+ * pgg-pgp.el (pgg-pgp-messages-coding-system): Abolish.
+ (pgg-pgp-process-region): Use `binary-funcall' instead of
+ `binary-to-text-funcall'.
+
+ * pgg-pgp5.el (pgg-pgp5-messages-coding-system): Abolish.
+ (pgg-pgp5-process-region): Use `binary-funcall' instead of
+ `binary-to-text-funcall'.
+
+2000-12-25 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * SEMI: Version 1.14.2 (Daish\e-Dòji)\e-A released.
+
+ * README.en (Required environment): Update to FLIM 1.14.2.
+
+ * mail-mime-setup.el (mail-setup-hook): Don't add
+ `eword-decode-header'.
+
+2000-12-23 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * mime-view.el (mime-view-define-keymap): Return
+ `mime-view-mode-map' instead of set up as local keymap; don't call
+ `mime-view-define-keymap-hook'.
+ (mime-display-message): Add new optional argument `keymap'.
+
+ * mime-play.el (mime-store-message/partial-piece): Use
+ `binary-insert-encoded-file' and `binary-write-decoded-region'
+ instead of `binary-insert-file-contents' and
+ `binary-write-region'.
+
+2000-12-23 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * smime.el (smime-process-region): Use `binary-funcall' instead of
+ `binary-start-process-shell-command'.
+ (smime-verify-region): Use `binary-write-decoded-region' and
+ `binary-insert-encoded-file' instead of `binary-write-region' and
+ `binary-insert-file-contents'.
+
+ * pgg-pgp5.el (pgg-pgp5-messages-coding-system): New variable.
+ (pgg-pgp5-process-region): Use `binary-to-text-funcall' instead of
+ `binary-start-process-shell-command'.
+ (pgg-scheme-verify-region): Use `binary-write-decoded-region'
+ instead of `binary-write-region'.
+
+ * pgg-pgp.el (pgg-pgp-messages-coding-system): New variable.
+ (pgg-pgp-process-region): Use `binary-to-text-funcall' instead of
+ `binary-start-process-shell-command'.
+ (pgg-scheme-verify-region): Use `binary-write-decoded-region'
+ instead of `binary-write-region'.
+
+ * pgg-gpg.el (pgg-gpg-process-region): Use
+ `binary-to-text-funcall' instead of `binary-start-process'.
+
2000-12-22 Daiki Ueno <ueno@unixuser.org>
* mime-view.el (mime-view-define-keymap): Bind [down-mouse-3]
instead of `mouse-button-3'.
-2000-12-21 Tadashi Watanabe <watanabe@sigmaitec.co.jp>
+\f
+2000-12-22 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * SEMI: Version 1.14.1 (Kaga-Onsen) released.
+
+ * README.en (Required environment): Require FLIM 1.14.1 or later;
+ update required emacsen.
+
+2000-12-22 MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+
+ * pgg-gpg.el (pgg-gpg-process-region): Use
+ `pgg-gpg-messages-coding-system'.
+
+2000-12-21 Tadashi Watanabe <watanabe@sigmaitec.co.jp>
* pgg-gpg.el (pgg-scheme-verify-region): Use a "-" as the name for
the file with the signed material.
# Makefile for SEMI kernel.
#
-PACKAGE = semi
+PACKAGE = emiko
API = 1.14
RELEASE = 0
19.14. SEMI also does not support Emacs 19.29 to 19.34, XEmacs
19.15 or XEmacs 20.2 without mule, but SEMI may work with them.
- SEMI requires APEL (9.22 or later) and FLIM (Chao 1.14.1 or later)
+ SEMI also does not support Emacs 19.29 to 19.34, XEmacs 19.15 or
+ XEmacs 20.2, but SEMI may work with them.
+
+ SEMI requires APEL (9.22 or later) and FLIM (1.14.2 or later)
package. Please install them before installing it. APEL package is
available at:
1.13.6 Komatsu \e$(B>.>>\e(B
1.13.7 Awazu \e$(B0@DE\e(B
1.14.0 Iburihashi \e$(BF066\e(B
------- Kaga-Onsen \e$(B2C2l29@t\e(B
------- Daish\e-Dòji\e-A \e$(BBg@;;{\e(B
+1.14.1 Kaga-Onsen \e$(B2C2l29@t\e(B
+1.14.2 Daish\e-Dòji\e-A \e$(BBg@;;{\e(B
------ Ushinoya \e$(B5m%NC+\e(B
------ Hosorogi \e$(B:YO$LZ\e(B
------ Awara-Onsen \e$(B028629@t\e(B
;;; mail-mime-setup.el --- setup file for mail-mode.
-;; Copyright (C) 1994,1995,1996,1997,1998 Free Software Foundation, Inc.
+;; Copyright (C) 1994,1995,1996,1997,1998,2000 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Keywords: mail-mode, MIME, multimedia, multilingual, encoded-word
(autoload 'turn-on-mime-edit "mime-edit"
"Unconditionally turn on MIME-Edit minor mode." t)
-(autoload 'eword-decode-header "eword-decode"
- "Decode MIME encoded-words in header fields." t)
+;; (autoload 'eword-decode-header "eword-decode"
+;; "Decode MIME encoded-words in header fields." t)
;;; @ for mail-mode, RMAIL and VM
;;;
-(add-hook 'mail-setup-hook 'eword-decode-header)
+;; (add-hook 'mail-setup-hook 'eword-decode-header)
(add-hook 'mail-setup-hook 'turn-on-mime-edit 'append)
(add-hook 'mail-send-hook 'mime-edit-maybe-translate)
(set-alist 'mime-edit-split-message-sender-alist
(save-window-excursion
(set-buffer full-buf)
(erase-buffer)
- (binary-insert-file-contents file)
+ (binary-insert-encoded-file file)
(setq major-mode 'mime-show-message-mode)
(mime-view-buffer (current-buffer) nil mother)
(setq pbuf (current-buffer))
(setq file (concat root-dir "/" (int-to-string i)))
(or (file-exists-p file)
(throw 'tag nil))
- (binary-insert-file-contents file)
+ (binary-insert-encoded-file file)
(goto-char (point-max))
(setq i (1+ i))))
- (binary-write-region (point-min)(point-max)
- (expand-file-name "FULL" root-dir))
+ (binary-write-decoded-region
+ (point-min)(point-max)
+ (expand-file-name "FULL" root-dir))
(let ((i 1))
(while (<= i total)
(let ((file (format "%s/%d" root-dir i)))
(insert "\n;;; "
(file-name-nondirectory file)
" ends here.\n")
- (static-cond
- ((boundp 'buffer-file-coding-system)
- (setq buffer-file-coding-system
- mime-situation-examples-file-coding-system))
- ((boundp 'file-coding-system)
- (setq file-coding-system
- mime-situation-examples-file-coding-system)))
+ (setq buffer-file-coding-system
+ mime-situation-examples-file-coding-system)
+ ;; (static-cond
+ ;; ((boundp 'buffer-file-coding-system)
+ ;; (setq buffer-file-coding-system
+ ;; mime-situation-examples-file-coding-system))
+ ;; ((boundp 'file-coding-system)
+ ;; (setq file-coding-system
+ ;; mime-situation-examples-file-coding-system)))
(setq buffer-file-name file)
(save-buffer)))))
(define-key mime-view-mode-map
[backspace] (function mime-preview-scroll-down-entity))
(if (functionp default)
- (static-if (featurep 'xemacs)
+ (if (featurep 'xemacs)
(set-keymap-default-binding mime-view-mode-map default)
(setq mime-view-mode-map
(append mime-view-mode-map (list (cons t default))))))
(define-key mime-view-mode-map
[down-mouse-3] (function mime-view-popup-menu))
- (use-local-map mime-view-mode-map)
- (run-hooks 'mime-view-define-keymap-hook)))
+ ;; (run-hooks 'mime-view-define-keymap-hook)
+ mime-view-mode-map))
+
+(defvar mime-view-mode-default-map (mime-view-define-keymap))
+
(defsubst mime-maybe-hide-echo-buffer ()
"Clear mime-echo buffer and delete window for it."
;;;###autoload
(defun mime-display-message (message &optional preview-buffer
mother default-keymap-or-function
- original-major-mode)
+ original-major-mode keymap)
"View MESSAGE in MIME-View mode.
Optional argument PREVIEW-BUFFER specifies the buffer of the
Optional argument DEFAULT-KEYMAP-OR-FUNCTION is nil, keymap or
function. If it is a keymap, keymap of MIME-View mode will be added
to it. If it is a function, it will be bound as default binding of
-keymap of MIME-View mode."
+keymap of MIME-View mode.
+
+Optional argument ORIGINAL-MAJOR-MODE is major-mode of representation
+buffer of MESSAGE. If it is nil, current `major-mode' is used.
+
+Optional argument KEYMAP is keymap of MIME-View mode. If it is
+non-nil, DEFAULT-KEYMAP-OR-FUNCTION is ignored. If it is nil,
+`mime-view-mode-default-map' is used."
(mime-maybe-hide-echo-buffer)
(let ((win-conf (current-window-configuration)))
(or preview-buffer
(header . visible)
(major-mode . ,original-major-mode))
preview-buffer)
- (mime-view-define-keymap default-keymap-or-function)
+ (use-local-map
+ (or keymap
+ (if default-keymap-or-function
+ (mime-view-define-keymap default-keymap-or-function)
+ mime-view-mode-default-map)))
(let ((point
(next-single-property-change (point-min) 'mime-view-entity)))
(if point
;;; Code:
+(require 'mel) ; binary-to-text-funcall
(eval-when-compile (require 'pgg))
(defgroup pgg-gpg ()
;;; Code:
+(require 'mel) ; binary-to-text-funcall, binary-write-decoded-region
(eval-when-compile (require 'pgg))
(defgroup pgg-pgp ()
(unwind-protect
(progn
(setq process
- (apply #'binary-start-process-shell-command "*PGP*"
- output-buffer
- program args))
+ (apply #'binary-funcall #'start-process-shell-command
+ "*PGP*" output-buffer program args))
(set-process-sentinel process #'ignore)
(when passphrase
(process-send-string process (concat passphrase "\n")))
(unwind-protect
(progn
(set-default-file-modes 448)
- (binary-write-region start end orig-file))
+ (binary-write-decoded-region start end orig-file))
(set-default-file-modes orig-mode))
(when (stringp signature)
(copy-file signature (setq signature (concat orig-file ".asc")))
;;; Code:
+(require 'mel) ; binary-to-text-funcall, binary-write-decoded-region
(eval-when-compile (require 'pgg))
(defgroup pgg-pgp5 ()
(unwind-protect
(progn
(setq process
- (apply #'binary-start-process-shell-command "*PGP*"
- output-buffer
- program args))
+ (apply #'binary-funcall #'start-process-shell-command
+ "*PGP*" output-buffer program args))
(set-process-sentinel process #'ignore)
(when passphrase
(process-send-string process (concat passphrase "\n")))
(unwind-protect
(progn
(set-default-file-modes 448)
- (binary-write-region start end orig-file))
+ (binary-write-decoded-region start end orig-file))
(set-default-file-modes orig-mode))
(when (stringp signature)
(copy-file signature (setq signature (concat orig-file ".asc")))
;;; Code:
(require 'path-util)
-(require 'raw-io)
+(require 'mel)
+;; binary-funcall, binary-write-decoded-region, binary-insert-encoded-file
(eval-when-compile (require 'static))
(defgroup smime ()
(buffer-disable-undo)
(erase-buffer))
(setq process
- (apply #'binary-start-process-shell-command "*S/MIME*"
- smime-output-buffer program args))
+ (apply #'binary-funcall #'start-process-shell-command
+ "*S/MIME*" smime-output-buffer
+ program args))
(set-process-sentinel process 'ignore)
(process-send-region process start end)
(process-send-eof process)
(unwind-protect
(progn
(set-default-file-modes 448)
- (binary-write-region start end orig-file))
+ (binary-write-decoded-region start end orig-file))
(set-default-file-modes orig-mode))
(with-temp-buffer
- (binary-insert-file-contents signature)
+ (binary-insert-encoded-file signature)
(goto-char (point-max))
- (binary-insert-file-contents
+ (binary-insert-encoded-file
(or (smime-find-certificate
(smime-query-signer (point-min)(point-max)))
(expand-file-name
projects / elisp / semi.git / commitdiff