(second (nth 1 desktop-buffer-misc)))
(when (and first second)
(require 'info)
- (Info-find-node first second)
+ (with-no-warnings
+ (Info-find-node first second))
(current-buffer))))))
;; ----------------------------------------------------------------------------
;; ----------------------------------------------------------------------------
(defun desktop-buffer-mh () "Load a folder in the mh system."
(if (eq 'mh-folder-mode desktop-buffer-major-mode)
- (progn
+ (with-no-warnings
(mh-find-path)
(mh-visit-folder desktop-buffer-name)
(current-buffer))))