branch: externals/gnorb
commit d61d9b8aaf1fc0d83d8eaa8c7922d9902c4e5d77
Author: Eric Abrahamsen <[email protected]>
Commit: Stefan Monnier <[email protected]>
Remove unnecessary with-no-warnings
* packages/gnorb/gnorb-bbdb.el (gnorb-bbdb-display-messages): Should
have caught this when updating for new BBDB version.
---
gnorb-bbdb.el | 47 +++++++++++++++++++++++------------------------
1 file changed, 23 insertions(+), 24 deletions(-)
diff --git a/gnorb-bbdb.el b/gnorb-bbdb.el
index ceaa0ab..900988f 100644
--- a/gnorb-bbdb.el
+++ b/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
""))))))
