newsticker: Prevent multiple "Could not download..." messages. Fixes bug#19166.

* lisp/net/newst-backend.el (newsticker--get-news-by-url-callback):
Pass correct status to `newsticker--sentinel-work'.
(newsticker--sentinel-work): Use "newsticker--download-error" as
guid in order to prevent multiple "Could not download..."
messages.  Fixes bug#19166.

* lisp/net/newst-treeview.el (newsticker--treeview-item-show): Check
window liveliness before measuring its width.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 375dd080b0f7d769501a71007b61aaeb2b55a886..9f233cdaadf921dbece5cec33a370723add6ffa5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,14 @@
+2014-12-01  Ulf Jasper  <ulf.jasper@web.de>
+
+       * net/newst-treeview.el (newsticker--treeview-item-show): Check
+       window liveliness before measuring its width.
+
+       * net/newst-backend.el (newsticker--get-news-by-url-callback):
+       Pass correct status to `newsticker--sentinel-work'.
+       (newsticker--sentinel-work): Use "newsticker--download-error" as
+       guid in order to prevent multiple "Could not download..."
+       messages.  Fixes bug#19166.
+
 2014-12-01  Ivan Shmakov  <ivan@siamics.net>
 
        * net/eww.el (eww-render): Call `eww-after-render-hook' in the

diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el
index 31ebc7ac58384216f6113bfede104e0fbae5852d..de5c23ca4c9a69edc90dd31ff471b7b054dfbe75 100644 (file)
--- a/lisp/net/newst-backend.el
+++ b/lisp/net/newst-backend.el
@@ -745,10 +745,14 @@ from."
     (insert result)
     ;; remove MIME header
     (goto-char (point-min))
-    (search-forward "\n\n")
+    (search-forward "\n\n" nil t)
     (delete-region (point-min) (point))
     ;; read the rss/atom contents
-    (newsticker--sentinel-work nil t feed-name "url-retrieve" (current-buffer))
+    (newsticker--sentinel-work nil
+                               (or (not status)
+                                   (not (eq (car status) :error)))
+                               feed-name "url-retrieve"
+                               (current-buffer))
     (when status
       (let ((status-type (car status))
             (status-details (cdr status)))
@@ -831,7 +835,8 @@ Argument COMMAND is the command of the retrieval process.
 Argument BUFFER is the buffer of the retrieval process."
   (let ((time (current-time))
         (name-symbol (intern feed-name))
-        (something-was-added nil))
+        (something-was-added nil)
+        (ct (current-time)))
     ;; catch known errors (zombie processes, rubbish-xml etc.
     ;; if an error occurs the news feed is not updated!
     (catch 'oops
@@ -848,9 +853,10 @@ Argument BUFFER is the buffer of the retrieval process."
                 (format-time-string "%A, %H:%M")
                 feed-name event command)
                ""
-               (current-time)
+               ct
                'new
-               0 nil))
+               0 '((guid nil "newsticker--download-error"))
+               ct))
         (message "%s: Error while retrieving news from %s"
                  (format-time-string "%A, %H:%M")
                  feed-name)

diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el
index 30015f499ef1687c93b597f31ffc211dc39b73fb..0b159234dfaee7c4878ccec0e05ca3ce0d2a5ac5 100644 (file)
--- a/lisp/net/newst-treeview.el
+++ b/lisp/net/newst-treeview.el
@@ -717,7 +717,9 @@ for the button."
       (remove-overlays)
 
       (when (and item feed-name-symbol)
-        (let ((wwidth (1- (window-width (newsticker--treeview-item-window)))))
+        (let ((wwidth (1- (if (window-live-p (newsticker--treeview-item-window))
+                              (window-width (newsticker--treeview-item-window))
+                            fill-column))))
           (if newsticker-use-full-width
               (set (make-local-variable 'fill-column) wwidth))
           (set (make-local-variable 'fill-column) (min fill-column