Update to 1.94.1.

PR:		ports/15627
Submitted by:	KIRIYAMA Kazuhiko <kiri@pis.toba-cmt.ac.jp>

8 files changed, 191 insertions, 17 deletions

diff --git a/mail/mew/files/DESCR.tmpl b/mail/mew/files/DESCR.tmpl
new file mode 100644
index 0000000..2590a86
--- /dev/null
+++ b/mail/mew/files/DESCR.tmpl
@@ -0,0 +1,20 @@
+Mew is a "Message interface to Emacs Window" to integrate
+
+   - Email
+   - NetNews
+   - MIME(Multipurpose Internet Mail Extensions)
+   - PGP(Pretty Good Privacy)
+
+and to make it easy to view and compose them. With Mew you can send a
+picture of a birthday cake with the song "Happy Birthday to you" to your
+friend, which is encrypted by strong cryptograph.
+
+This port is the Mew for %%EMACS_CMD%%(%%PORTDIR%%). 
+The Mew port and corresponding Emacs port are listed bellow and elisp
+`site-lisp' directory(elisp load path), info path and etc directory(only
+effective for xemacs ports) are shown as well. 
+
+%%PORTDIR%%(%%PKGNAME%%) ===> editors/%%EMACS_PORT_NAME%%(%%EMACS_CMD%%) 
+	Lisp directory : %%ELISPDIR%%
+	Info directory : %%INFODIR%%
+	ETC directory  : %%ETCDIR%%
diff --git a/mail/mew/files/dot.emacs.el.tmpl b/mail/mew/files/dot.emacs.el.tmpl
new file mode 100644
index 0000000..8cfe348
--- /dev/null
+++ b/mail/mew/files/dot.emacs.el.tmpl
@@ -0,0 +1,95 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Mew ;;;;;;;;;
+;;;       Mew (Ver.%%version%%)                                             ;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;
+;;; Site configuration
+;;;
+%%REQUIRE%%
+(autoload 'mew "mew" nil t)
+(autoload 'mew-send "mew" nil t)
+(setq mew-mail-domain-list '("%%nameserver%%"))
+(setq mew-icon-directory "%%emacsdir%%/etc/mew")
+;;;
+;;; Window tips
+;;;
+;; If you use XEmacs and your video chip provides only limited
+;; color map(e.g. 256), put the following line to avoid exhaustion
+;; of colors.
+;(setq mew-demo-picture nil)
+(cond
+ ((string-match "XEmacs" emacs-version)
+;  (setq url-be-asynchronous t)
+;  (setq-default buffer-file-coding-system 'iso-2022-jp)
+;  (setq keyboard-coding-system    'iso-2022-jp)
+;  (setq terminal-coding-system    'iso-2022-jp)
+  (add-menu-item '("Apps") "Read Mail (Mew)" 'mew t "Read Mail (VM)...")
+  (add-menu-item '("Apps") "Send Mail (Mew)" 'mew-send t "Read Mail (VM)...")
+;  (delete-menu-item '("Apps" "Read Mail (VM)..."))
+;  (delete-menu-item '("Apps" "Read Mail (MH)..."))
+;  (delete-menu-item '("Apps" "Send mail..."))
+  (setq toolbar-mail-reader 'Mew)
+  (setq toolbar-mail-commands-alist
+	(cons '(Mew . mew) toolbar-mail-commands-alist))
+  )
+ ((string< "20" emacs-version)
+;  (setq standard-fontset-spec14
+;	"-*-fixed-medium-r-normal-*-14-*-*-*-*-*-fontset-standard")
+;  (create-fontset-from-fontset-spec standard-fontset-spec14 nil 'noerror)
+;  (set-default-font standard-fontset-spec14)
+  (setup-japanese-environment)
+  )
+ (t ;; Mule 2.3 or Emacs 19
+  )
+ )
+;;;
+;;; Citation tip
+;;;
+(setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
+(setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\nMessage-ID: %s\n\n")
+(setq mew-cite-prefix-function 'mew-cite-prefix-username)
+;(setq mew-cite-fields '("Message-ID:" "From:"))
+;(setq mew-cite-format "Message-ID: %s の記事にて\n%s さんは書かれました :\n\n")
+;; Change citation according to the message body language.
+;(setq mew-cite-fields '("Message-ID:" "From:"))
+;(defadvice mew-draft-cite (before my-add activate)
+;  (save-excursion
+;    (set-buffer (or mew-message-citation-buffer (mew-buffer-message)))
+;    (if (string= (mew-charset-guess-region (point-min) (point-max))
+;                 "us-ascii" )
+;        ;; us-ascii
+;        (setq mew-cite-format "In Message-ID: %s\n%s wrote  :\n\n")
+;      ;; others
+;      (setq mew-cite-format "Message-ID: %s の記事にて\n%s さんは書かれました :\n\n") )))
+;;;
+;;; Signature tip
+;;;
+;; Change signature according to the message body language.
+;(setq mew-signature-file "~/.signature")
+;(make-local-variable 'mew-signature-file)
+;(defadvice mew-draft-insert-signature (before my-add activate)
+;  ;; 本文が英語なら mew-signature-file に ~/.signature.eng を代入する。
+;  ;; 本文が英語以外なら mew-signature-file に ~/.signature を代入する。
+;  ;; ~/.signature.eng に英語用の署名を書いておくこと。
+;  (save-match-data
+;    (let ((eng (string-match "\\.eng$" mew-signature-file)))
+;      (if (string= (mew-charset-guess-region (point-min) (point-max))
+;                   "us-ascii" )
+;          (if (not eng)
+;              (setq mew-signature-file (concat mew-signature-file ".eng")) )
+;        (if eng
+;            (setq mew-signature-file (substring mew-signature-file 0 -4)) )))))
+;
+(setq mew-signature-insert-last t)
+(add-hook 'mew-send-hook 'mew-draft-insert-signature)
+;;;
+;;; Thread tip
+;;;
+;; Now threading is insufficient,but partially makes enough by comment out following line.
+;(setq mew-prog-imls-arg-list '("--thread=yes" "--indent=2"))
+;;;
+;;; Miscellaneous
+;;;
+(setq mew-underline-lines-use t)
+(setq mew-use-highlight-body t)
+;; If you use Wnn4/6,sj3 or Canna, comment out following line.
+;(setq mew-use-overlay-keymap nil)
diff --git a/mail/mew/files/message.sh b/mail/mew/files/message.sh
new file mode 100644
index 0000000..c2720cc
--- /dev/null
+++ b/mail/mew/files/message.sh
@@ -0,0 +1,26 @@
+#!/bin/sh
+ 
+if [ -z "${SITE_STARTUP_FILE}" ]; then
+    ${CAT} <<EOF > ${WRKTMPDIR}/MESSAGE
+*************************************************************************
+* You must set at least following elisps to your own dot.emacs file:    *
+*                                                                       *
+*       (autoload 'mew "mew" nil t)                                     *
+*       (autoload 'mew-send "mew" nil t)                                *
+*       (setq mew-mail-domain-list '("Name_Server_Domain_Name"))        *
+*                                                                       *
+*************************************************************************
+EOF
+else
+    ${CAT} <<EOF > ${WRKTMPDIR}/MESSAGE
+*************************************************************************
+* You must set at least following elisps to your own dot.emacs file:    *
+*                                                                       *
+*       (require 'mew-${EMACS_PORT_NAME}-startup)                                  *
+*       (autoload 'mew "mew" nil t)                                     *
+*       (autoload 'mew-send "mew" nil t)                                *
+*       (setq mew-mail-domain-list '("Name_Server_Domain_Name"))        *
+*                                                                       *
+*************************************************************************
+EOF
+fi    
diff --git a/mail/mew/files/mew-startup.el.tmpl b/mail/mew/files/mew-startup.el.tmpl
new file mode 100644
index 0000000..e0c7a1d
--- /dev/null
+++ b/mail/mew/files/mew-startup.el.tmpl
@@ -0,0 +1,2 @@
+(setq load-path (cons "%%ELISPDIR%%" load-path))
+(provide 'mew-%%EMACS_PORT_NAME%%-startup)
diff --git a/mail/mew/files/mew-xemacs-startup.el.tmpl b/mail/mew/files/mew-xemacs-startup.el.tmpl
new file mode 100644
index 0000000..a78dc54
--- /dev/null
+++ b/mail/mew/files/mew-xemacs-startup.el.tmpl
@@ -0,0 +1,3 @@
+(setq load-path (cons "%%ELISPDIR%%" load-path))
+(setq mew-icon-directory "%%ETCDIR%%")
+(provide 'mew-%%EMACS_PORT_NAME%%-startup)
diff --git a/mail/mew/files/patch-aa b/mail/mew/files/patch-aa
index 63a688d..cd5eb36 100644
--- a/mail/mew/files/patch-aa
+++ b/mail/mew/files/patch-aa
@@ -1,6 +1,6 @@
---- Makefile.orig	Fri Aug 27 12:23:59 1999
-+++ Makefile	Mon Aug 30 23:09:10 1999
-@@ -88,12 +88,28 @@
+--- Makefile~	Wed Oct 20 20:20:51 1999
++++ Makefile	Fri Dec 10 22:42:06 1999
+@@ -88,12 +88,29 @@
  	mew-temacs.el   mew-xemacs.el  mew-addrbook.el \
  	mew.el
  
@@ -19,6 +19,7 @@
 +	etc/mew-curr.xpm	etc/mew-folder.xpm	etc/mew-inc2.xpm	\
 +	etc/mew-kill.xpm
 +
++
  TEMPFILE = temp.el
  
  CP = cp
@@ -29,10 +30,10 @@
  
  all: $(OBJS)
  	@echo 'Compiling EL files of Mew ... '
-@@ -111,8 +127,8 @@
- 	@echo ')))' >> $(TEMPFILE)
- 
- install: $(OBJS)
+@@ -114,8 +131,8 @@
+ 	-@if [ ! -d $(ELISPDIR) ]; then \
+ 		$(MKDIR) $(ELISPDIR); \
+ 	fi; \
 -	$(CP) $(SRCS) $(ELISPDIR)
 -	$(CP) $(OBJS) $(ELISPDIR)
 +	${BSD_INSTALL_DATA} $(SRCS) $(ELISPDIR)
@@ -40,7 +41,7 @@
  	cd $(BIN); $(MAKE) install CFLAGS="$(CFLAGS)" CC="$(CC)" BINDIR="$(BINDIR)"
  
  clean:
-@@ -123,19 +139,32 @@
+@@ -126,19 +143,32 @@
  	cd info; $(MAKE) info EMACS=$(EMACS)
  
  install-info:
diff --git a/mail/mew/files/patch-ac b/mail/mew/files/patch-ac
index 63afdc7..ee8b3c4 100644
--- a/mail/mew/files/patch-ac
+++ b/mail/mew/files/patch-ac
@@ -1,5 +1,5 @@
---- info/Makefile.orig	Wed Aug 25 17:56:29 1999
-+++ info/Makefile	Mon Aug 30 23:14:43 1999
+--- info/Makefile.orig	Wed Oct 20 20:20:56 1999
++++ info/Makefile	Fri Dec 10 22:45:46 1999
 @@ -32,6 +32,7 @@
  
  INFO  = mew.info mew.info-1 mew.info-2 mew.info-3
@@ -8,10 +8,10 @@
  
  info::
  	sed -e 's/@setfilename mew.jis.info/@setfilename mew.info/' \
-@@ -52,20 +53,25 @@
- 		-f batch-texinfo-format mew.texi
- 
- install-info:
+@@ -55,8 +56,8 @@
+ 	-@if [ ! -d $(INFODIR) ]; then \
+ 		$(MKDIR) $(INFODIR); \
+ 	fi; \
 -	cp $(INFO) $(INFODIR)
 -	-@if [ -x "$(INSTALLINFO)" ]; then \
 +	${BSD_INSTALL_DATA} $(INFO) $(INFODIR)
@@ -19,9 +19,10 @@
  		$(INSTALLINFO) mew.info $(INFODIR)/dir; \
  	else \
  		echo "Don't forget to edit $(INFODIR)/dir for Mew."; \
- 	fi
- 
- install-jinfo:
+@@ -66,12 +67,17 @@
+ 	-@if [ ! -d $(INFODIR) ]; then \
+ 		$(MKDIR) $(INFODIR); \
+ 	fi; \
 -	cp $(JINFO) $(INFODIR)
 -	-@if [ -x "$(INSTALLINFO)" ]; then \
 +	${BSD_INSTALL_DATA} $(JINFO) $(INFODIR)
diff --git a/mail/mew/files/tmpl2file.sh b/mail/mew/files/tmpl2file.sh
new file mode 100644
index 0000000..3a61fbc
--- /dev/null
+++ b/mail/mew/files/tmpl2file.sh
@@ -0,0 +1,26 @@
+#!/bin/sh
+
+for f in ${TMPL_FILES}; do
+	${SED} \
+		-e "s,%%PREFIX%%,${PREFIX},g" \
+		-e "s,%%EMACSDIR%%,${EMACSDIR},g" \
+		-e "s,%%ELISPDIR%%,${ELISPDIR},g" \
+		-e "s,%%INFODIR%%,${INFODIR},g" \
+		-e "s,%%ETCDIR%%,${ETCDIR},g" \
+		-e "s,%%PORTDIR%%,${PORTDIR},g" \
+		-e "s,%%SAMPLEDIR%%,${SAMPLEDIR},g" \
+		-e "s,%%REQUIRE%%,${REQUIRE},g" \
+		-e "s,%%AWK%%,${AWK},g" \
+		-e "s,%%CAT%%,${CAT},g" \
+		-e "s,%%CP%%,${CP},g" \
+		-e "s,%%ECHO%%,${ECHO},g" \
+		-e "s,%%MKDIR%%,${MKDIR},g" \
+		-e "s,%%RM%%,${RM},g" \
+		-e "s,%%SED%%,${SED},g" \
+		-e "s,%%TOUCH%%,${TOUCH},g" \
+		-e "s,%%EMACS_CMD%%,${EMACS_CMD},g" \
+		-e "s,%%PKGNAME%%,${PKGNAME},g" \
+		-e "s,%%EMACS_PORT_NAME%%,${EMACS_PORT_NAME},g" \
+		-e "s,%%VERSION%%,${VERSION},g" \
+		< ${FILESDIR}/${f}.tmpl > ${WRKTMPDIR}/${f}
+done