-;; (when (or gnus-message-replysign gnus-message-replyencrypt)
-;; (let (signed encrypted)
-;; (save-excursion
-;; (set-buffer gnus-article-buffer)
-;; (setq signed (memq 'signed gnus-article-wash-types))
-;; (setq encrypted (memq 'encrypted gnus-article-wash-types)))
-;; (cond ((and gnus-message-replysign signed)
-;; (mml-secure-message mml-default-sign-method 'sign))
-;; ((and gnus-message-replyencrypt encrypted)
-;; (mml-secure-message mml-default-encrypt-method
-;; (if gnus-message-replysignencrypted
-;; 'signencrypt
-;; 'encrypt))))))
- ))))
+ (gnus-summary-handle-replysign)))))
+
+(defun gnus-summary-handle-replysign ()
+ "Check the various replysign variables and take action accordingly."
+ (when nil;;(or gnus-message-replysign gnus-message-replyencrypt)
+ (let (signed encrypted)
+ (save-excursion
+ (set-buffer gnus-article-buffer)
+ (setq signed (memq 'signed gnus-article-wash-types))
+ (setq encrypted (memq 'encrypted gnus-article-wash-types)))
+ (cond ((and gnus-message-replysign signed)
+ (mml-secure-message mml-default-sign-method 'sign))
+ ((and gnus-message-replyencrypt encrypted)
+ (mml-secure-message mml-default-encrypt-method
+ (if gnus-message-replysignencrypted
+ 'signencrypt
+ 'encrypt)))))))