From b314a634095e5a76516114d67b9021889fe83af4 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 11 Oct 2002 11:25:05 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 20 +++++++++++++------- lisp/gnus-spec.el | 4 +++- texi/ChangeLog | 6 +++++- texi/gnus-ja.texi | 14 +++++++------- texi/gnus.texi | 17 +++++++++-------- 5 files changed, 37 insertions(+), 24 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1d0f8a7..55fc1a7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,11 @@ +2002-10-11 Jesper harder + + * gnus-spec.el (gnus-balloon-face-function): Use the help-echo + text property in Emacs. + 2002-10-11 Simon Josefsson - * mml2015.el (mml2015-pgg-decrypt, mml2015-pgg-clear-decrypt) + * mml2015.el (mml2015-pgg-decrypt, mml2015-pgg-clear-decrypt) (mml2015-pgg-verify, mml2015-pgg-clear-verify): Remove CR. * mml1991.el (mml1991-pgg-sign): Remove CR. @@ -15,11 +20,12 @@ (mml2015-gpg-extract-signature-details): Use it. 2002-10-10 Ted Zlatanov - * spam.el: compilation fixes, spam-check-bbdb function is nil if no - BBDB installed - - * spam-stat.el: added code from Alex Schroeder to do - statistical analysis of spam in Lisp only + + * spam.el: compilation fixes, spam-check-bbdb function is nil if no + BBDB installed + + * spam-stat.el: added code from Alex Schroeder to do + statistical analysis of spam in Lisp only 2002-10-10 Simon Josefsson @@ -154,7 +160,7 @@ (pgg-scheme-snarf-keys-region): Use pgg-temporary-file-directory. * pgg-parse.el (pgg-char-int): Defalias. - (pgg-format-key-identifier, pgg-byte-after, pgg-read-byte) + (pgg-format-key-identifier, pgg-byte-after, pgg-read-byte) (pgg-read-bytes, pgg-read-body): Use it. (pgg-decode-packets): Don't use MEL, use base64-*. (pgg-parse-armor): Don't assume set-buffer-multibyte exists. diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el index eec204e..5468cb7 100644 --- a/lisp/gnus-spec.el +++ b/lisp/gnus-spec.el @@ -289,7 +289,9 @@ (defun gnus-balloon-face-function (form type) `(gnus-put-text-property (point) (progn ,@form (point)) - 'balloon-help + ,(if (fboundp 'balloon-help-mode) + ''balloon-help + ''help-echo) ,(intern (format "gnus-balloon-face-%d" type)))) (defun gnus-spec-tab (column) diff --git a/texi/ChangeLog b/texi/ChangeLog index 93ed1a0..0beab05 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,7 @@ +2002-10-11 Jesper harder + + * gnus.texi (Formatting Fonts): Fix for balloon help in GNU Emacs. + 2002-10-11 Katsumi Yamaoka * gnus.texi (Delayed Articles): Fix gnus-delay-initialize. @@ -287,7 +291,7 @@ 2002-05-01 Lars Magne Ingebrigtsen * message.texi (Message Headers): Remove colon from index - entries. + entries. 2002-05-01 Simon Josefsson diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index 5f89c1b..761d80f 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -19017,14 +19017,14 @@ gnus $B$O4X?t(B @code{gnus-user-format-function-}@samp{foo} $B$r8F$S=P$7$^$9! $B$9(B---@samp{hello} $B$,(B @code{gnus-mouse-face-3} $B$G%^%&%9!]%O%$%i%$%H$5$l$k(B $B$?$a$K$O!"(B@samp{%3(hello%)} $B$H$9$k;v$,$G$-$^$9!#(B -@samp{%<} $B$H(B @samp{%>} $B;X<(;R$N4V$N%F%-%9%H$OFCJL(B +@samp{%<<} $B$H(B @samp{%>>} $B;X<(;R$N4V$N%F%-%9%H$OFCJL(B $B$J(B @code{balloon-help} $B%W%m%Q%F%#$,(B @code{gnus-balloon-face-0} $B$K@_Dj$5(B -$B$l$^$9!#(B@samp{%1<} $B$H$9$k$H!"(B@code{gnus-balloon-face-1} $B$rF@$F!"B>$bF1MM(B -$B$G$9!#(B@code{gnus-balloon-face-*} $BJQ?t$OJ8;zNs$+J8;zNs$rJV$94X?t$r;X$9%7(B -$B%s%\%k$N$I$A$i$+$G$"$kI,MW$,$"$j$^$9!#(B@code{balloon-help-mode} $B$G$O!"%^(B -$B%&%9$,%W%m%Q%F%#$N@_Dj$5$l$F$$$k%F%-%9%H$N>e$rDL2a$9$k$H!"%P%k!<%s%&%#%s(B -$B%I%&$,8=$l$F!"J8;zNs$rI=<($7$^$9!#$3$l$N>\$7$$>pJs(B -$B$O(B @code{balloon-help-mode} $B$N@bL@J8;zNs$r;2>H$7$F$/$@$5$$!#(B +$B$l$^$9!#(B@samp{%1<<} $B$H$9$k$H!"(B@code{gnus-balloon-face-1} $B$rF@$F!"B>$bF1(B +$BMM$G$9!#(B@code{gnus-balloon-face-*} $BJQ?t$OJ8;zNs$+J8;zNs$rJV$94X?t$r;X$9(B +$B%7%s%\%k$N$I$A$i$+$G$"$kI,MW$,$"$j$^$9!#%^%&%9$,%W%m%Q%F%#$N@_Dj$5$l$F$$(B +$B$k%F%-%9%H$N>e$rDL2a$9$k$H!"%P%k!<%s%&%#%s%I%&$,8=$l$F!"J8;zNs$rI=<($7$^(B +$B$9!#$3$l$N>\$7$$>pJs$O(B @ref{(emacs)Help Echo} (GNU Emacs) $B$^$?(B +$B$O(B @code{balloon-help-mode} (XEmacs) $B$N@bL@J8;zNs$r;2>H$7$F$/$@$5$$!#(B $B$3$l$O%0%k!<%W%P%C%U%!$NBeBX} specifiers will get the special -@code{balloon-help} property set to @code{gnus-balloon-face-0}. If you -say @samp{%1<}, you'll get @code{gnus-balloon-face-1} and so on. The -@code{gnus-balloon-face-*} variables should be either strings or symbols -naming functions that return a string. Under @code{balloon-help-mode}, -when the mouse passes over text with this property set, a balloon window -will appear and display the string. Please refer to the doc string of -@code{balloon-help-mode} for more information on this. +Text inside the @samp{%<<} and @samp{%>>} specifiers will get the +special @code{balloon-help} property set to @code{gnus-balloon-face-0}. +If you say @samp{%1<<}, you'll get @code{gnus-balloon-face-1} and so on. +The @code{gnus-balloon-face-*} variables should be either strings or +symbols naming functions that return a string. When the mouse passes +over text with this property set, a balloon window will appear and +display the string. Please refer to @ref{(emacs)Help Echo} (in GNU +Emacs) or the doc string of @code{balloon-help-mode} (in XEmacs) for +more information on this. Here's an alternative recipe for the group buffer: -- 1.7.10.4