[elpa] externals/gnorb 7cf46c3 149/449: Don't use `read' when there's nothing to read

[Stefan Monnier]

branch: externals/gnorb
commit 7cf46c30be6b0f72ca95d360b7e4cc157f2bf32c
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    Don't use `read' when there's nothing to read
    
    * lisp/gnorb-gnus.el (gnorb-gnus-outgoing-do-todo): If read is fed nil,
      it prompts for a lisp expression! Make sure it's not fed nil.
---
 lisp/gnorb-gnus.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/gnorb-gnus.el b/lisp/gnorb-gnus.el
index 94d7fe4..e50ce12 100644
--- a/lisp/gnorb-gnus.el
+++ b/lisp/gnorb-gnus.el
@@ -348,7 +348,8 @@ work."
        ;; what org id headers are present, though, so we don't add
        ;; duplicates.
        (setq ref-ids (unless arg (mail-fetch-field "References" t)))
-       (setq reply-group (car-safe (read (mail-fetch-field "X-Draft-From" t))))
+       (setq reply-group (when (mail-fetch-field "X-Draft-From" t)
+                           (car-safe (read (mail-fetch-field "X-Draft-From" 
t)))))
        ;; when it's a reply, store a link to the reply just in case.
        ;; This is pretty embarrassing -- we follow a link just to
        ;; create a link. But I'm not going to recreate all of