Mercurial > emacs

comparison lisp/mail/uce.el @ 87141:1a8ec74a74f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix buggy calls to `error'.
author Deepak Goel <deego@gnufans.org>
date Thu, 06 Dec 2007 18:18:13 +0000
parents 2c08ad76fc1f
children ac7eee19fc7e
comparison
equal deleted inserted replaced
87140:9c91533a901a 87141:1a8ec74a74f3
237 (t (error 237 (t (error
238 "Variable uce-mail-reader set to unrecognized value")))) 238 "Variable uce-mail-reader set to unrecognized value"))))
239 (full-header-p (and (eq uce-mail-reader 'rmail) 239 (full-header-p (and (eq uce-mail-reader 'rmail)
240 (not (rmail-msg-is-pruned))))) 240 (not (rmail-msg-is-pruned)))))
241 (or (get-buffer message-buffer) 241 (or (get-buffer message-buffer)
242 (error (concat "No buffer " message-buffer ", cannot find UCE"))) 242 (error "%s" (concat "No buffer " message-buffer ", cannot find UCE")))
243 (switch-to-buffer message-buffer) 243 (switch-to-buffer message-buffer)
244 ;; We need the message with headers pruned. 244 ;; We need the message with headers pruned.
245 (if full-header-p 245 (if full-header-p
246 (rmail-toggle-header 1)) 246 (rmail-toggle-header 1))
247 (let ((to (mail-strip-quoted-names (mail-fetch-field "from" t))) 247 (let ((to (mail-strip-quoted-names (mail-fetch-field "from" t)))