Commits

Anonymous committed 383c9ab

Usability enhancements, add direntry

  • Participants
  • Parent commits aed0215

Comments (0)

Files changed (14)

+Tue Jun 09 23:04:08 1998  Darryl Okahata  <darrylo@sr.hp.com>
+
+	* (TM 1.07: tm-edit.el)  Added new function,
+	`mime-editor/insert-file-verbose', so that users can use menu
+	picks to attach files and specify their MIME type/subtype.
+	There are now two menu picks to attach files to messages:
+
+		Insert File			# Old, original, version
+		Insert File (verbose)		# Newer version with verbose
+						#  prompting for type/subtype
+
+	A new menu pick was added because some users will not like
+	verbose prompting.
+
+	Modified `mime-file-types' alist to use
+	text/plain/quoted-printable as the MIME default instead of
+	application/octet-stream/nil for the file extensions:
+
+		.el .diff .diffs .txt
+
+	The file extension ".patch" was left alone (except for the
+	default encoding being changed to base64), as there are some
+	true binary files (typically on the PC) whose names end with
+	".patch".
+
+	Also made case-insensitive the association of file extensions to
+	default MIME types.  This means that extensions like .TXT and
+	.txt will be treated the same.
+
+	* (mel-q.el) Quoted "#" character, so that TM 1.07 compiles
+	under XEmacs 20.4.
+
 1998-05-10  SL Baur  <steve@altair.xemacs.org>
 
 	* tm-edit.el (mime-editor/define-menu-for-xemacs): Use easymenu.
 (defconst q-encoding-special-chars-alist
   '((text	?= ?? ?_)
     (comment	?= ?? ?_ ?\( ?\) ?\\)
-    (phrase	?= ?? ?_ ?\( ?\) ?\\ ?\" ?# ?$ ?% ?& ?' ?, ?. ?/
+    (phrase	?= ?? ?_ ?\( ?\) ?\\ ?\" ?\# ?$ ?% ?& ?' ?, ?. ?/
 		?: ?\; ?< ?> ?@ ?\[ ?\] ?^ ?` ?{ ?| ?} ?~)
     ))
 

File texi/gnus-mime-en.texi

 \input texinfo.tex
 @setfilename gnus-mime-en.info
 @settitle{gnus-mime 0.10 reference manual (English Version)}
+@direntry
+* Gnus-MIME-En::           MIME extensions for Gnus
+@end direntry
 @titlepage
 @title gnus-mime 0.10 reference manual (English Version)
 @author MORIOKA Tomohiko <morioka@@jaist.ac.jp>

File texi/gnus-mime-ja.texi

 \input texinfo.tex
 @setfilename gnus-mime-ja.info
 @settitle{gnus-mime 0.10 $B@bL@=q!JF|K\8lHG!K(B}
+@direntry
+* Gnus-MIME-Ja::           MIME extensions for Gnus ($BF|K\8lHG(B)
+@end direntry
 @titlepage
 @title gnus-mime 0.10 $B@bL@=q!JF|K\8lHG!K(B
 @author $B<i2,(B $BCNI'(B <morioka@@jaist.ac.jp>

File texi/tm-edit-en.texi

 \input texinfo.tex
 @setfilename tm-edit-en.info
 @settitle{tm-edit 7.100 Reference Manual (English Version)}
+@direntry
+* Tm-Edit-En::         MIME composer for GNU Emacs
+@end direntry
 @titlepage
 @title tm-edit 7.100 Reference Manual (English Version)
 @author MORIOKA Tomohiko <morioka@@jaist.ac.jp>

File texi/tm-edit-ja.texi

 \input texinfo.tex
 @setfilename tm-edit-ja.info
 @settitle{tm-edit 7.100 $B@bL@=q!JF|K\8lHG!K(B}
+@direntry
+* Tm-Edit-Ja::         MIME composer for GNU Emacs ($BF|K\8lHG(B)
+@end direntry
 @titlepage
 @title tm-edit 7.100 $B@bL@=q!JF|K\8lHG!K(B
 @author $B<i2,(B $BCNI'(B <morioka@@jaist.ac.jp>

File texi/tm-en.texi

 \input texinfo.tex
 @setfilename tm-en.info
 @settitle{tm 7.100 Manual (English Version)}
+@direntry
+* Tm-En::              MIME package for GNU Emacs
+@end direntry
 @titlepage
 @title tm 7.100 Manual (English Version)
 @author MORIOKA Tomohiko <morioka@@jaist.ac.jp>

File texi/tm-ja.texi

 \input texinfo.tex
 @setfilename tm-ja.info
 @settitle{tm 7.100 Manual$B!JF|K\8lHG!K(B}
+@direntry
+* Tm-Ja::              MIME package for GNU Emacs ($BF|K\8lHG(B)
+@end direntry
 @titlepage
 @title tm 7.100 Manual$B!JF|K\8lHG!K(B
 @author $B<i2,(B $BCNI'(B <morioka@@jaist.ac.jp>

File texi/tm-mh-e-en.texi

 \input texinfo.tex
 @setfilename tm-mh-e-en.info
 @settitle{tm-mh-e 7.71 Reference Manual (English Version)}
+@direntry
+* Tm-Mh-E-Ja::            MIME extension for MH-E mail reader
+@end direntry
 @titlepage
 @title tm-mh-e 7.71 Reference Manual (English Version)
 @author MORIOKA Tomohiko <morioka@@jaist.ac.jp>
 
 @ifinfo
 
-This file documents tm-mh-e, a MIME extension for GNUS.
+This file documents tm-mh-e, a MIME extension for MH-E.
 @end ifinfo
 
 @menu

File texi/tm-mh-e-ja.texi

 \input texinfo.tex
 @setfilename tm-mh-e-ja.info
 @settitle{tm-mh-e 7.71 $B@bL@=q!JF|K\8lHG!K(B}
+@direntry
+* Tm-Mh-E-Ja::            MIME extension for MH-E mail reader ($BF|K\8lHG(B)
+@end direntry
 @titlepage
 @title tm-mh-e 7.71 $B@bL@=q!JF|K\8lHG!K(B
 @author $B<i2,(B $BCNI'(B <morioka@@jaist.ac.jp>

File texi/tm-view-en.texi

 @settitle{tm-view 7.80 Reference Manual (English Version)}
 @titlepage
 @title tm-view 7.80 Reference Manual (English Version)
+@direntry
+* Tm-View-En::            MIME viewer for Emacs
+@end direntry
 @author MORIOKA Tomohiko <morioka@@jaist.ac.jp>
 @subtitle 1997/1/31
 @end titlepage

File texi/tm-view-ja.texi

 @settitle{tm-view 7.80 Reference Manual$B!JF|K\8lHG!K(B}
 @titlepage
 @title tm-view 7.80 Reference Manual$B!JF|K\8lHG!K(B
+@direntry
+* Tm-View-Ja::            MIME viewer for Emacs ($BF|K\8lHG(B)
+@end direntry
 @author $B<i2,(B $BCNI'(B <morioka@@jaist.ac.jp>
 @subtitle 1997/1/31
 @end titlepage

File texi/tm-vm-en.texi

 @c %**start of header
 @setfilename tm-vm-en.info
 @settitle tm-vm Manual (English Version)
+@direntry
+* Tm-Vm::              MIME extension for VM mail reader
+@end direntry
 @c %**end of header
 
 @ifinfo
      "base64"
      "attachment"	(("filename" . file))
      )
+    ("\\.txt$"
+     "text"	"plain"		nil
+     "quoted-printable"
+     "attachment"	(("filename" . file))
+     )
     ("\\.el$"
-     "application" "octet-stream" (("type" . "emacs-lisp"))
-     "7bit"
+     "text" "plain" (("type" . "emacs-lisp"))
+     "quoted-printable"
      "attachment"	(("filename" . file))
      )
     ("\\.lsp$"
      "base64"
      "attachment"	(("filename" . file))
      )
-    ("\\.diff$"
-     "application" "octet-stream" (("type" . "patch"))
-     nil
+    ("\\.diffs?$"
+     "text" "plain" (("type" . "patch"))
+     "quoted-printable"
      "attachment"	(("filename" . file))
      )
     ("\\.patch$"
      "application" "octet-stream" (("type" . "patch"))
-     nil
+     "base64"
      "attachment"	(("filename" . file))
      )
     ("\\.signature"
 (defconst mime-editor/menu-list
   '((mime-help	"Describe MIME editor mode" mime-editor/help)
     (file	"Insert File"		mime-editor/insert-file)
+    (file	"Insert File (verbose)"	mime-editor/insert-file-verbose)
     (external	"Insert External"	mime-editor/insert-external)
     (voice	"Insert Voice"		mime-editor/insert-voice)
     (message	"Insert Message"	mime-editor/insert-message)
 \[make single part\]
 \\[mime-editor/insert-text]	insert a text message.
 \\[mime-editor/insert-file]	insert a (binary) file.
+\\[mime-editor/insert-file-verbose]	insert a (binary) file, with verbose
+				MIME prompting.
 \\[mime-editor/insert-external]	insert a reference to external body.
 \\[mime-editor/insert-voice]	insert a voice message.
 \\[mime-editor/insert-message]	insert a mail or news message.
     (mime-editor/insert-binary-file file encoding)
     ))
 
+;;
+;; mime-editor/insert-file-verbose exists so that users can access verbose
+;; functionality from menu picks, and not just key sequences.
+;;
+(defun mime-editor/insert-file-verbose (file)
+  "Insert a message from a file, with verbose MIME prompting"
+  (interactive "fInsert file as MIME message: \n")
+  (mime-editor/insert-file file t)
+  )
+
 (defun mime-editor/insert-external ()
   "Insert a reference to external body."
   (interactive)
 (defun mime-find-file-type (file)
   "Guess Content-Type, subtype, and parameters from FILE."
   (let ((guess nil)
-	(guesses mime-file-types))
+	(guesses mime-file-types)
+	(case-fold-search t))
     (while (and (not guess) guesses)
       (if (string-match (car (car guesses)) file)
 	  (setq guess (cdr (car guesses))))