From: ichikawa Date: Sat, 14 Nov 1998 14:00:58 +0000 (+0000) Subject: Forget bind C-c C-a to message-insert-mime-part X-Git-Tag: pgnus-ichikawa-199811302358~59 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6b076354134f18897040674f4fbcadf434a811d8;p=elisp%2Fgnus.git- Forget bind C-c C-a to message-insert-mime-part --- diff --git a/ChangeLog b/ChangeLog index 1303f3b..e7f00d9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 1998-11-14 Tatsuya Ichikawa + * lisp/message.el: Forget bind "\C-c\C-a" 'message-insert-mime-part + * lisp/gnus.el (gnus-version-number): Update to 6.10.030. * Sync up with Pterodactyl Gnus 0.44. diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7329efd..1a01fd1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1094,7 +1094,7 @@ Mon Sep 14 18:55:38 1998 Lars Magne Ingebrigtsen * rfc2047.el (rfc2047-q-encode-region): Would bug out. -1998-09-13 François Pinard +1998-09-13 Fran$BmP(Bis Pinard * nndoc.el: Make nndoc-dissection-alist simpler for MIME, adjust all related functions. Handle message/rfc822 parts. Display subject on diff --git a/lisp/message.el b/lisp/message.el index 3fac51b..dcbc446 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1441,6 +1441,7 @@ Point is left at the beginning of the narrowed-to region." (define-key message-mode-map "\t" 'message-tab) + (define-key message-mode-map "\C-c\C-a" 'message-insert-mime-part) (define-key message-mode-map "\C-x\C-s" 'message-save-drafts) (define-key message-mode-map "\C-xk" 'message-kill-buffer)) diff --git a/lisp/smiley.el b/lisp/smiley.el index ac1a65f..84402f1 100644 --- a/lisp/smiley.el +++ b/lisp/smiley.el @@ -59,11 +59,11 @@ ("\\(\\^_?\\^\\)\\W" 1 "WideFaceSmile.xbm") ("\\(;_;\\)\\W" 1 "WideFaceWeep.xbm") ("\\(T_T\\)\\W" 1 "WideFaceWeep.xbm") - ("\\(:-*[<«]+\\)\\W" 1 "FaceAngry.xpm") + ("\\(:-*[<(I+(B]+\\)\\W" 1 "FaceAngry.xpm") ("\\(:-+\\]+\\)\\W" 1 "FaceGoofy.xpm") ("\\(:-*D\\)\\W" 1 "FaceGrinning.xpm") - ("\\(:-*[)>}»]+\\)\\W" 1 "FaceHappy.xpm") - ("\\(=[)>»]+\\)\\W" 1 "FaceHappy.xpm") + ("\\(:-*[)>}(I;(B]+\\)\\W" 1 "FaceHappy.xpm") + ("\\(=[)>(I;(B]+\\)\\W" 1 "FaceHappy.xpm") ("\\(:-*[/\\\"]\\)[^/]\\W" 1 "FaceIronic.xpm") ("\\([8|]-*[|Oo%]\\)\\W" 1 "FaceKOed.xpm") ("\\([:|]-*#+\\)\\W" 1 "FaceNyah.xpm") @@ -73,8 +73,8 @@ ("\\(:-*|\\)\\W" 1 "FaceStraight.xpm") ("\\(:-*p\\)\\W" 1 "FaceTalking.xpm") ("\\(:-*d\\)\\W" 1 "FaceTasty.xpm") - ("\\(;-*[>)}»]+\\)\\W" 1 "FaceWinking.xpm") - ("\\(:-*[Vvµ]\\)\\W" 1 "FaceWry.xpm") + ("\\(;-*[>)}(I;(B]+\\)\\W" 1 "FaceWinking.xpm") + ("\\(:-*[Vv(I5(B]\\)\\W" 1 "FaceWry.xpm") ("\\([:|]-*P\\)\\W" 1 "FaceYukky.xpm")) "*Normal and deformed faces for smilies." :type '(repeat (list regexp @@ -83,10 +83,10 @@ :group 'smiley) (defcustom smiley-nosey-regexp-alist - '(("\\(:-+[<«]+\\)\\W" 1 "FaceAngry.xpm") + '(("\\(:-+[<(I+(B]+\\)\\W" 1 "FaceAngry.xpm") ("\\(:-+\\]+\\)\\W" 1 "FaceGoofy.xpm") ("\\(:-+D\\)\\W" 1 "FaceGrinning.xpm") - ("\\(:-+[}»]+\\)\\W" 1 "FaceHappy.xpm") + ("\\(:-+[}(I;(B]+\\)\\W" 1 "FaceHappy.xpm") ("\\(:-*)+\\)\\W" 1 "FaceHappy.xpm") ("\\(=[)>]+\\)\\W" 1 "FaceHappy.xpm") ("\\(:-+[/\\\"]+\\)\\W" 1 "FaceIronic.xpm") @@ -98,8 +98,8 @@ ("\\(:-+|\\)\\W" 1 "FaceStraight.xpm") ("\\(:-+p\\)\\W" 1 "FaceTalking.xpm") ("\\(:-+d\\)\\W" 1 "FaceTasty.xpm") - ("\\(;-+[>)}»]+\\)\\W" 1 "FaceWinking.xpm") - ("\\(:-+[Vvµ]\\)\\W" 1 "FaceWry.xpm") + ("\\(;-+[>)}(I;(B]+\\)\\W" 1 "FaceWinking.xpm") + ("\\(:-+[Vv(I5(B]\\)\\W" 1 "FaceWry.xpm") ("\\(][:8B]-[)>]\\)\\W" 1 "FaceDevilish.xpm") ("\\([:|]-+P\\)\\W" 1 "FaceYukky.xpm")) "*Smileys with noses. These get less false matches." diff --git a/texi/ChangeLog b/texi/ChangeLog index 2d1e9e8..e6e7e2c 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -922,7 +922,7 @@ Thu Aug 29 23:51:45 1996 Lars Magne Ingebrigtsen * gnus.texi (Daemons): Addition. -Thu Aug 29 02:09:24 1996 François Pinard +Thu Aug 29 02:09:24 1996 Fran$BmP(Bis Pinard * gnus.texi (Web Searches): Typo. diff --git a/texi/emacs-mime.texi b/texi/emacs-mime.texi index 122f513..8585bbc 100644 --- a/texi/emacs-mime.texi +++ b/texi/emacs-mime.texi @@ -235,7 +235,7 @@ Narrow the buffer to the header under point. @item mail-encode-encoded-word-region @findex mail-encode-encoded-word-region Encode the non-ASCII words in the region. For instance, -@samp{Naïve} is encoded as @samp{=?iso-8859-1?q?Na=EFve?=}. +@samp{Na$B}W(Be} is encoded as @samp{=?iso-8859-1?q?Na=EFve?=}. @item mail-encode-encoded-word-buffer @findex mail-encode-encoded-word-buffer @@ -248,7 +248,7 @@ Encode the words that need encoding in a string, and return the result. @example (mail-encode-encoded-word-string - "This is naïve, baby") + "This is na$B}W(Be, baby") @result{} "This is =?iso-8859-1?q?na=EFve,?= baby" @end example @@ -263,7 +263,7 @@ Decode the encoded words in the string and return the result. @example (mail-decode-encoded-word-string "This is =?iso-8859-1?q?na=EFve,?= baby") -@result{} "This is naïve, baby" +@result{} "This is na$B}W(Be, baby" @end example @end table