[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master cb87b09 2/5: Remove unnecessary with-no-warnings
From: |
Eric Abrahamsen |
Subject: |
[elpa] master cb87b09 2/5: Remove unnecessary with-no-warnings |
Date: |
Tue, 21 Mar 2017 15:59:24 -0400 (EDT) |
branch: master
commit cb87b096187a77b19ca9ea94c518a2640dfc8fa8
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
Remove unnecessary with-no-warnings
* packages/gnorb/gnorb-bbdb.el (gnorb-bbdb-display-messages): Should
have caught this when updating for new BBDB version.
---
packages/gnorb/gnorb-bbdb.el | 47 ++++++++++++++++++++++----------------------
1 file changed, 23 insertions(+), 24 deletions(-)
diff --git a/packages/gnorb/gnorb-bbdb.el b/packages/gnorb/gnorb-bbdb.el
index 5fa4116..dd129ab 100644
--- a/packages/gnorb/gnorb-bbdb.el
+++ b/packages/gnorb/gnorb-bbdb.el
@@ -491,30 +491,29 @@ layout type."
;; Why aren't I using `bbdb-display-list' with a
;; preformatted list of messages?
(concat
- (with-no-warnings ; For `indent' again
- (bbdb-indent-string
- (mapconcat
- (lambda (m)
- (prog1
- (org-propertize
- (concat
- (format-time-string
- (replace-regexp-in-string
- "%:subject" (gnorb-bbdb-link-subject m)
- (replace-regexp-in-string
- "%:count" (number-to-string count)
- (if (eq format 'multi)
- gnorb-bbdb-message-link-format-multi
- gnorb-bbdb-message-link-format-one)))
- (gnorb-bbdb-link-date m)))
- 'face 'gnorb-bbdb-link
- 'mouse-face 'highlight
- 'gnorb-bbdb-link-count count
- 'keymap map)
- (incf count)))
- val (if (eq format 'multi)
- "\n" ", "))
- indent))
+ (bbdb-indent-string
+ (mapconcat
+ (lambda (m)
+ (prog1
+ (org-propertize
+ (concat
+ (format-time-string
+ (replace-regexp-in-string
+ "%:subject" (gnorb-bbdb-link-subject m)
+ (replace-regexp-in-string
+ "%:count" (number-to-string count)
+ (if (eq format 'multi)
+ gnorb-bbdb-message-link-format-multi
+ gnorb-bbdb-message-link-format-one)))
+ (gnorb-bbdb-link-date m)))
+ 'face 'gnorb-bbdb-link
+ 'mouse-face 'highlight
+ 'gnorb-bbdb-link-count count
+ 'keymap map)
+ (incf count)))
+ val (if (eq format 'multi)
+ "\n" ", "))
+ indent)
(if (eq format 'multi) "\n" "")))
(t
""))))))
- [elpa] master updated (32329b4 -> e0f0dac), Eric Abrahamsen, 2017/03/21
- [elpa] master cbbee0b 1/5: Fix nnir search routine, Eric Abrahamsen, 2017/03/21
- [elpa] master cb87b09 2/5: Remove unnecessary with-no-warnings,
Eric Abrahamsen <=
- [elpa] master 014466a 3/5: Update Gnus summary article line after trigger process, Eric Abrahamsen, 2017/03/21
- [elpa] master e0f0dac 5/5: Bump Gnorb version to 1.2, Eric Abrahamsen, 2017/03/21
- [elpa] master 72bc6cd 4/5: Rename msg-id-to-group to msg-id-request-head, refactor, Eric Abrahamsen, 2017/03/21