2010-09-26 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * gnus-picon.el (gnus-picon-inhibit-top-level-domains): New variable.
+ (gnus-picon-transform-address): Use it.
+
* mail-source.el (mail-source-value): Revert previous patch.
* nnimap.el (nnimap-credentials): Allow inhibiting the password query
(const right))
:group 'gnus-picon)
+(defcustom gnus-picon-inhibit-top-level-domains t
+ "If non-nil, don't piconify top-level domains.
+These are often not very interesting."
+ :type 'boolean
+ :group 'gnus-picon)
+
;;; Internal variables:
(defvar gnus-picon-glyph-alist nil
(setcar spec (cons (gnus-picon-create-glyph file)
(car spec))))
- (dotimes (i (1- (length spec)))
+ (dotimes (i (- (length spec)
+ (if gnus-picon-inhibit-top-level-domains
+ 2 1)))
(when (setq file (gnus-picon-find-face
(concat "unknown@"
(mapconcat
+2010-09-26 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * gnus.texi (Picons): Document gnus-picon-inhibit-top-level-domains.
+
2010-09-26 Julien Danjou <julien@danjou.info>
* gnus.texi (Oort Gnus): Remove mention of ssl.el
Ordered list of suffixes on picon file names to try. Defaults to
@code{("xpm" "gif" "xbm")} minus those not built-in your Emacs.
+@item gnus-picon-inhibit-top-level-domains
+@vindex gnus-picon-inhibit-top-level-domains
+If non-@code{nil} (which is the default), don't display picons for
+things like @samp{.net} and @samp{.de}, which aren't usually very
+interesting.
+
@end table
@node Gravatars