403Webshell
Server IP : 80.241.246.6  /  Your IP : 216.73.216.188
Web Server : Apache/2.4.25 (Debian)
System : Linux kharagauli 4.9.0-19-amd64 #1 SMP Debian 4.9.320-2 (2022-06-30) x86_64
User : www-data ( 33)
PHP Version : 7.0.33-0+deb9u12
Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : ON  |  Pkexec : ON
Directory :  /etc/emacs/site-start.d/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /etc/emacs/site-start.d/00debian-vars.el
;; 00debian-vars.el
;;
;; Initialize some emacs variables from debian policy files.
;;
;; Copyright (C) 1997, Frederic Lepied <Frederic.Lepied@sugix.frmug.org>
;;
;; original Author: Frederic Lepied <Frederic.Lepied@sugix.frmug.org>
;; enhanced and documented by: Mark Eichin <eichin@kitten.gen.ma.us>

;;=============================================================================
;; Autoloaded section.
;;=============================================================================


;;;###

(eval-when-compile
  ;; Quiet byte compiler
  (defvar gnus-nntpserver-file))

;;;***


;;=============================================================================
;; Configuration section.
;;=============================================================================
(defun debian-file->string (name &optional func)
  "Convert a file into a string"
  (interactive "fFile name : ")
  (let ((filename (expand-file-name name)))
    (if (not (file-readable-p filename))
        nil
      (with-temp-buffer
        ;; Do not run any user `find-file-hooks'
        (insert-file-contents-literally filename)
        (if func
            (funcall func))
        (buffer-string)))))

(defun debian-clean-mailname ()
  (while (search-forward "\n" nil t)
    (replace-match "" nil t)))

;; Particular variables, and their justification:
;; policy/ch4.html, 4.3 Mail processing on Debian systems, /etc/mailname
;; policy/ch-binarypkg.html, 3.5 Maintainer scripts, /etc/news/server

(let ((mailname
       (debian-file->string "/etc/mailname" (function debian-clean-mailname))))
  (if mailname
      (setq mail-host-address mailname)))

;; Don't need to check NNTPSERVER for override, gnus does that for us.
(if (file-readable-p "/etc/news/server")
    (setq gnus-nntpserver-file "/etc/news/server"))

;;; 00debian-vars.el ends here

Youez - 2016 - github.com/yon3zu
LinuXploit