X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-picon.el;h=be64979a1182e420f6d7e65877f843c4426daa67;hb=9954729d205c97242f0787c79dc23e7b051a6201;hp=c1150644db1abb8c5c7dd199de4f517a578958a6;hpb=b27d95985fb82bd21a40672a725c1201cfd291d7;p=gnus

diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index c1150644d..be64979a1 100644
--- a/lisp/gnus-picon.el
+++ b/lisp/gnus-picon.el
@@ -184,8 +184,9 @@ arguments necessary for the job.")
 
 (defun gnus-get-buffer-name (variable)
   "Returns the buffer name associated with the contents of a variable."
-  (let ((buf (get-buffer (gnus-window-to-buffer-helper
-			    (cdr (assq variable gnus-window-to-buffer))))))
+  (let ((buf (get-buffer-create (gnus-window-to-buffer-helper
+				 (cdr 
+				  (assq variable gnus-window-to-buffer))))))
     (and buf
 	 (buffer-name buf))))
 
@@ -466,7 +467,7 @@ none, and whose CDR is the corresponding element of DOMAINS."
 					    'text nil nil nil rightp))))))
 
 (defun gnus-picons-action-toggle (data)
-  "Toggle annotation"
+  "Toggle annotation."
   (interactive "e")
   (let* ((annot (car data))
 	 (glyph (annotation-glyph annot)))
@@ -474,7 +475,7 @@ none, and whose CDR is the corresponding element of DOMAINS."
     (set-annotation-data annot (cons annot glyph))))
 
 (defun gnus-picons-clear-cache ()
-  "Clear the picons cache"
+  "Clear the picons cache."
   (interactive)
   (setq gnus-picons-glyph-alist nil
 	gnus-picons-url-alist nil))
@@ -730,7 +731,7 @@ none, and whose CDR is the corresponding element of DOMAINS."
 		     (error "Unknown picon job tag %s" tag)))))))
 
 (defun gnus-picons-next-job ()
-  "Start processing the job queue if it is not in progress"
+  "Start processing the job queue if it is not in progress."
   (unless gnus-picons-job-already-running
     (gnus-picons-next-job-internal)))