+ ;; Restore buffer mode.
+ (when (and (nnbabyl-server-opened)
+ nnbabyl-previous-buffer-mode)
+ (save-excursion
+ (set-buffer nnbabyl-mbox-buffer)
+ (narrow-to-region
+ (car (car nnbabyl-previous-buffer-mode))
+ (cdr (car nnbabyl-previous-buffer-mode)))
+ (funcall (cdr nnbabyl-previous-buffer-mode))))
+ (setq nnbabyl-current-server nil
+ nnbabyl-mbox-buffer nil)