X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-spec.el;h=3878b8ad372456e41c159742e178f7f76f89decd;hb=8ea1f15fd54f5a6b6bc71dd0b6c155ab77f474c1;hp=07d1a87df2fc01a629d18817933b36692779c9ef;hpb=178fc161c59aebf50ba3042c6aecb56888cb4d49;p=gnus

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index 07d1a87df..3878b8ad3 100644
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -531,7 +531,7 @@ If PROPS, insert the result."
 		       ;; Under XEmacs, it's (funcall #<compiled-function ...>)
 		       (not (and (eq 'funcall (car form))
 				 (byte-code-function-p (cadr form)))))
-	      (fset 'gnus-tmp-func `(lambda () ,form))
+	      (defalias 'gnus-tmp-func `(lambda () ,form))
 	      (byte-compile 'gnus-tmp-func)
 	      (setcar (cddr entry) (gnus-byte-code 'gnus-tmp-func))))))