(sc-mail-glom-frame): Mark as risky.

diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index ba4aca881ef67aa78973191a7bf67031ef3f56d0..593f46cad40ed57aaec526599edea44136e06d1b 100644 (file)
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -720,6 +720,7 @@ the list should be unique."
     (sc-mail-warn-if-non-rfc822-p (sc-mail-error-in-mail-field))
     (end                          (setq sc-mail-headers-end (point))))
   "Regi frame for glomming mail header information.")
+(put 'sc-mail-glom-frame 'risky-local-variable t)
 
 (defvar curline)                       ; dynamic bondage