(progn (setq server-temp-file-regexp (concat "^" tmpdir "\\|/draft$")
edit-server-new-frame nil
gnuserv-frame t)
- (trap (server-start))
+ (trap (let ((warning-suppress-types
+ (cons '(server) warning-suppress-types)))
+ (server-start)))
(trap (progn
(require 'edit-server)
(edit-server-start)