X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-registry.el;fp=lisp%2Fgnus-registry.el;h=e91dd980b4f69f562073dbb6b40dda08637c030e;hb=051d74319415a8e395c9985eb8cac587a1c709df;hp=50443973a8dda6daf8091d5aa8ccb5ca5100437f;hpb=4bfee81711b64e10808f8b1846818e29ef16cb94;p=gnus diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el index 50443973a..e91dd980b 100644 --- a/lisp/gnus-registry.el +++ b/lisp/gnus-registry.el @@ -558,7 +558,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." do (gnus-message ;; warn more if gnus-registry-track-extra (if gnus-registry-track-extra 7 9) - "%s (extra tracking) traced subject '%s' to %s" + "%s (extra tracking) traced subject ‘%s’ to %s" log-agent subject group) and collect group)) ;; filter the found groups and return them @@ -585,7 +585,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." do (gnus-message ;; warn more if gnus-registry-track-extra (if gnus-registry-track-extra 7 9) - "%s (extra tracking) traced sender '%s' to %s" + "%s (extra tracking) traced sender ‘%s’ to %s" log-agent sender group) and collect group))) @@ -615,7 +615,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." do (gnus-message ;; warn more if gnus-registry-track-extra (if gnus-registry-track-extra 7 9) - "%s (extra tracking) traced recipient '%s' to %s" + "%s (extra tracking) traced recipient ‘%s’ to %s" log-agent recp group) and collect group))))) @@ -630,7 +630,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (defun gnus-registry-post-process-groups (mode key groups) "Inspects GROUPS found by MODE for KEY to determine which ones to follow. -MODE can be 'subject' or 'sender' for example. The KEY is the +MODE can be `subject' or `sender' for example. The KEY is the value by which MODE was searched. Transforms each group name to the equivalent short name. @@ -712,12 +712,12 @@ possible. Uses `gnus-registry-split-strategy'." ((null out) (gnus-message 5 - "%s: no matches for %s '%s'." + "%s: no matches for %s ‘%s’." log-agent mode key) nil) (t (gnus-message 5 - "%s: too many extra matches (%s) for %s '%s'. Returning none." + "%s: too many extra matches (%s) for %s ‘%s’. Returning none." log-agent out mode key) nil))))