From a382f10aac954e3921a4689b492c815a827838a1 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Tue, 7 Aug 2012 10:17:54 +0200
Subject: Show message after some operations

After marking an article as read or opening an article, show a message
that it has been done.
---
 avandu.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'avandu.el')

diff --git a/avandu.el b/avandu.el
index 32e805a..3edd1c8 100644
--- a/avandu.el
+++ b/avandu.el
@@ -448,9 +448,11 @@ When updating FIELD 3 DATA functions as the note's contents."
 (defun avandu-browse-article ()
   "Browse the current button's article url."
   (interactive)
-  (let ((button (button-at (point))))
+  (let ((button (button-at (point)))
+        (message-truncate-lines t))
     (browse-url (button-get button 'link))
-    (avandu-mark-article-read button)))
+    (avandu-mark-article-read button)
+    (message "Opened: %s" (button-label button))))
 
 (defun avandu-feed-catchup ()
   "Send a request to tt-rss to \"Catch up\" with a feed.  This
@@ -507,9 +509,11 @@ nil, it will be assumed that `point' is currently within the
 bounds of a button."
   (interactive)
   (let* ((button (or button (button-at (point))))
-         (id (button-get button 'article-id)))
+         (id (button-get button 'article-id))
+         (message-truncate-lines t))
     (avandu-update-article id 0 2)
-    (button-put button 'face 'avandu-overview-read-article))
+    (button-put button 'face 'avandu-overview-read-article)
+    (message "Marked article as read: %s" (button-label button)))
   (avandu-next-article))
 
 (defun avandu-new-articles-count ()
-- 
cgit v1.2.3-54-g00ecf